Try this:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Dim dtHol As Variant
Dim dbDate As Date

dtHol = TextBox1.Value
If IsDate(TextBox1) < True And (TextBox1.Value < "" Or _
TextBox1.Value < 0) Then
MsgBox "Value must be date (mm/dd/yyyy)."
Cancel = True
End If

End Sub


"xlcharlie" wrote in message
...
I am developing a userform in which the user will enter a date. I want
the
code to verify that the data entered is a valid date (type dbDate) before
calling the procedure. To do this I have been working with the code
below:
Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Dim dtHol As Variant
dtHol = TextBox1.Value
If TextBox1.Type < dbDate And TextBox1.Value < "" Or _
TextBox1.Value < 0 Then
Call errMsg1
End If
End Sub

The Type method does not seem to be available for this purpose, and
assigning a variable the value of the TextBox has been similarly
unsuccessful. Any hints how this should be done?