→→→日付形式かどうか

If  Not IsDate( TextBox1.Text ) Then
     Msgbox("日付形式で入力して下さい 2011/5/10")
     TextBox1.Focus()
Else
     TextBox1.Text = CDate( TextBox1.Text ).ToString("yyyy/MM/dd")
End If