[محمد العبيدي]

اخي يمكنك استخدام الكود التالي

PHP كود :

Private Sub Text1_LostFocus()
      On Error Resume Next
      Dim T As Date
      T = CDate(Text1.Text)
      If Err Then
            MsgBox "Error"
            Err.Clear
      End If
End Sub