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

解決

まぼろし  2005-04-27 14:05:17  No: 121310  IP: [192.*.*.*]

テキストに入力した日付が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 14:50:09  No: 121311  IP: [192.*.*.*]

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

編集 削除
まぼろし  2005-04-27 15:13:31  No: 121312  IP: [192.*.*.*]

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

編集 削除