how to validate text box imput -- date only!

Use the IsDate function.

Private Sub Command1_Click()
If IsDate(Text1.Text) Then
MsgBox "Date correct"
Else
MsgBox "Invalid date!"
End If
End Sub