With
Me
.txtZeit1
If
.Value <>
""
Then
If
InStr(1, .Value,
":"
, vbTextCompare) = 0
Then
tString = Format(.Value,
"0000"
)
tString = Left(tString, 2) &
":"
& Right(tString, 2)
.Value = Format(TimeValue(tString),
"HH:MM"
)
Else
.Value = Format(.Value,
"hh:mm"
)
End
If
End
If
End
With