Private Sub MaskEdBox1_Validate(Cancel As Boolean)
  ' Eingabe prüfen
  With MaskEdBox1
    Dim Std As Integer
    Dim Min As Integer
 
    Std = Val(Left$(.Text, 2))
    Min = Val(Right$(.Text, 2))
    If Std > 23 Then Std = 23
    If Min > 59 Then Min = 59
    .Text = Format$(Std, "00") & ":" & Format$(Min, "00")
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de