' mit Zeitfunktionen Second, Minute, Hour
Dim lf_InputResult As String
 
    InputResult = InputBox("Zeit:", "InputBox")
    Text1.Text = Second(InputResult)
    Text2.Text = Minute(InputResult)
    Text3.Text = Hour(InputResult)

'mit array
Dim lf_InputResult As String, lf_Array() As String
 
    InputResult = InputBox("Zeit:", "InputBox")
    lf_Array = Split(InputResult, ":")
    Text1.Text = lf_Array(0)
    Text2.Text = lf_Array(1)
    Text3.Text = lf_Array(2)

Real programmer do not comment their code;
what?s hard to write should be hard to read