日付の入力チェック

テキストボックスで年月日で日付を入力する時、月まで入れて日を入力せずに
Format(文字列,"yyyyy/mm/dd")でフォーマットすると、勝手に1日が設定されてしまいます。
そこで、日が入力されていない事をチェックする必要があります。
で、splitで文字列を分割して、配列のサイズを確認する方法を考えました。
肝はuBound関数です。

Dim str() As String
Dim cnt As Integer
str = Split(Me.txt振替日, "/", , vbBinaryCompare)
cnt = UBound(str)
MsgBox (cnt)
If cnt < 2 Then
MsgBox "error 2"
Else
If str(2) = "" Then
MsgBox "error 1 "
End If
End If
End Sub