Hi,
ob das die ultimative Lösung ist, weiss ich nun auch nicht. Auf die Schnelle hätte ich es so gelöst:
Private Sub Command1_Click()
Dim zeit
Dim pos
zeit = CSng(Me.Text1.text) 'Zeitstring in Zahl umwandeln
zeit = zeit / 0.25 ' Zeit durch 0,25 teilen
pos = InStr(1, zeit, ",") ' Position des Kommas ermitteln
If pos > 0 Then 'wenn Pos 0 dann ok, ansonsten...
MsgBox "Falsche Eingabe"
End If
End Sub
Ansatz ist, dass die Zeit geteilt durch 0,25 eine ganze Zahl ergeben muss.
Also Teilen, prüfen, ob im String ein Dezimaltrenner drinnen ist, wenn ja, dann Falsche Eingabe.
greetings
Buell