Military Time Userform input

[sassriverrat]

Hello All- I have a userform with a few text boxes. Two of the text boxes are used for time inputs. I'd like the times to be put in formatted as military times (0001 or 1040 or 2304 (no colons)). These textboxes input data into a few excel boxes on "Voyages" sheet. How would I format that?

Thanks

 

[Kamolga]

Hello All- I have a userform with a few text boxes. Two of the text boxes are used for time inputs. I'd like the times to be put in formatted as military times (0001 or 1040 or 2304 (no colons)). These textboxes input data into a few excel boxes on "Voyages" sheet. How would I format that?

Thanks

You can try to adapt

Private Sub TxtObsStart_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
'Correct wrong format
TxtObsStart = Format(TxtObsStart,"hhmm")
'Force time format
If Not Me.TxtObsStart Like "????" Then
MsgBox "Please use Military format 'hhmm'"
TxtObsStart.SetFocus
Cancel = True
Exit Sub
End If
'Time is accepted
ObsStart = Application.WorksheetFunction.Text(Me.TxtObsStart, "hhmm")
Me.TxtObsStart = ObsStart
End Sub