Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Chr(KeyAscii) Like "[0-9.: ]" = False Then
KeyAscii = 0
End If
End Sub
Private Sub TextBox1_Change()
If Len(TextBox1.Text) = 16 Then
If IsDate(TextBox1.Text) = False Then
MsgBox "Keine gültige Eingabe!"
Else
MsgBox "Datum: " & Left(TextBox1.Text, 10) & vbLf & "Zeit: " & _
Right(TextBox1.Text, 5)
End If
End If
End Sub