日付型への変換するには？

プー。 2001-11-22 00:44:48 No: 103806

コンボボックスのリストに20001/10/11というデータが
文字列型で入っています。これを日付型に変換し、別の
テキストに出力したいのですが、
txt.Text = CDate(cbo_MI.Text )とすると駄目でした。
どのように修正したらよいのでしょうか？

こころ URL 2001-11-23 19:08:29 No: 103807

残念ながら、日付型は一万年以降には対応していません。
2001年であるなら、正常に動作しましたが・・・。

ぷー。 2001-11-27 18:13:36 No: 103808

コンボボックスのリストに2001/10/11の場合どうなりますか？
すみません。教えて下さい。

こころ URL 2001-11-29 10:50:44 No: 103809

いや、だから2001年でもうまくいきましたが・・・。
コンボボックスのText,List、どちらを変換しても正常に動作します。
確認用に書いたコードです。

Private Sub Command1_Click()
    Combo1.AddItem "2001/10/11"
    Combo1.ListIndex = 0
    Text1.Text = CDate(Combo1.Text)
End Sub