テキストにかかれた日付を「細かく」比較するには？

解決

まぼろし 2005-04-27 23:05:17 No: 121310

テキストに入力した日付がyyyy/mm/ddの形になっているか比較するには
下のように書けばいいと過去ログにありました。
    Dim sDate As String

    sDate = Text1.Text

    If IsDate(sDate) Then
        If sDate = Format$(sDate, "yyyy/mm/dd") Then
            MsgBox "正しい日付です"
        Else
            MsgBox "日付の記述が間違ってます"
        End If
    Else
        MsgBox "日付ではありません"
    End If
しかしこのように書いても、入力した日付が
2005/01/  や  200/4  でも処理を通過してしまいます。
これを「年・月・日がきちんと入力されていないと処理を通過できない」
ようにするにはどうしたらいいのでしょうか？
どなたかご指導していただけませんか。

特攻隊長まるるう 2005-04-27 23:50:09 No: 121311

>しかしこのように書いても、入力した日付が
>2005/01/ や 200/4 でも処理を通過してしまいます。
通過しません。もう一度コードを確認して下さい。
サンプルコードは改造せず、そのままで実行して下さい。

まぼろし 2005-04-28 00:13:31 No: 121312

どうやら別の個所がおかしかったようです。
特攻隊長まるるうさんお手数かけました。