Testen textbox op datumwaarde

[ML71]

Ik heb een formulier gemaakt met daarin een tekstbox waarin een datum moet worden opgegeven. Voor de waarden uit het formulier worden verwerkt wil ik eerst testen of ook een datum is ingevoerd.

Ik dacht dit te doen door middel van de onderstaande code, maar ik krijg bij alles wat ik invoer de msgbox te zien. Hoe kan ik dit verhelpen?

 If Not IsDate(tekstFeest2) Then
  MsgBox "Voer een correcte datum in!" & vbCr & "(dd-mm-jjjj)"
  Exit Sub
 End If

 

[HSV]

Test dit eens:

Dim Tb1 As Object
Set Tb1 = TextBox1
  If Not WorksheetFunction.And(Tb1 Like "##-##-####", IsDate(Tb1), Right(Tb1, 4) >= 1904, Right(Tb1, 4) < 2100) Then
    MsgBox "Voer een correcte datum in!" & vbCr & "(dd-mm-jjjj)"
  Else
 Range("A1").Value = DateValue(Tb1)
End If