If on_time >= 0 And on_time <= 2400 Then 'because some people differentiate between midnight at start of day, and midnight at end of day
Dim HHMM As String = on_time
Do While HHMM.Length < 4
HHMM = "0" & HHMM
Loop
on_hr = HHMM.SubString2(0, 2)
on_min = HHMM.SubString(2) 'same as .SubString(2, 4)
Else
Log("invalid time")
End If