日付(または時刻)文字列をDate型(バリアント)へ変換するには以下のような関数があります。

DateValue
TimeValue
CDate

・書式

val = DateValue( "[日付文字列]" ) '戻り値：Variant型
val = TimeValue( "[時間文字列]" ) '戻り値：Variant型
val = CDate( "[日付文字列]" ) '戻り値：Date型

・ 例

val = DateValue( Now )                     '1994/06/19
val = DateValue( "1994年6月19日" )          '1994/06/19
val = DateValue( "94年6月19日" )            '1994/06/19
val = DateValue( "平成6年6月19日" )         '1994/06/19

val = TimeValue( Now )                     '17:34:23
val = TimeValue( "17時34分" )               '17:34:00
val = TimeValue( "午後5時34分" )            '17:34:00
val = TimeValue( "5:34 PM" )               '17:34:00

val = CDate( "1994年6月19日 17時34分" ) '1994/06/19 17:34:23
val = CDate( "" )                      'エラー：型が一致しません。
val = CDate( Null )                    'エラー：Null の使い方が不正です。