Private Sub Command1_Click()
    Dim s As String
 
    s = "12/07/02"
 
    If s Like "##.##.####" Or s = "##.##.##" Or s Like "##/##/##" Then
	'oder noch mehr Formate ...
        MsgBox "Datum ok !", vbInformation
    Else
        MsgBox "Falsches Datum !", vbInformation
    End If
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1