【VBA】CDateで文字列を日付型に変える

Public Function CreateDateFromStr(ByVal v As String) As Date
    CreateDateFromStr = CDate(Format(v, "####/##/##"))
End Function