Bij gebrek aan een voorbeeld.
Probeer
Plaats deze code in een gewone module.
Sub txtTijd
Dim xHour As String
Dim xMinute As String
Dim xWord As String
If TxtTijd.Text = "" Then Exit Sub
xWord = Format(TxtTijd.Text, "0000")
xHour = Left(xWord, 2)
xMinute = Right(xWord, 2)
TxtTijd.Text = TimeSerial(0, xHour, xMinute)
End sub
en volgende code in txtTijd knop.
Private Sub TxtTijd_Keydown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Call txtTijd
If KeyCode = vbKeyReturn Then
CmndInv_Click
End If
End Sub
Nota: volgende code behouden
Private Sub txtTijd_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Dim xHour As String
Dim xMinute As String
Dim xWord As String
If TxtTijd.Text = "" Then Exit Sub
xWord = Format(TxtTijd.Text, "0000")
xHour = Left(xWord, 2)
xMinute = Right(xWord, 2)
TxtTijd.Text = TimeSerial(0, xHour, xMinute)
End Sub