La hora la puedes separar en horas y minutos. Igual asi te arreglas para hacerlo como quieres (yo no tengo muy claro lo que quieres
)
Dim Hora As String
Hora = Hour(Time) & ":" & Minute(Time)
MsgBox Hora
MsgBox Hour(Hora)
MsgBox Minute(Hora)
Hora = Format(Time, "hh:mm")
MsgBox Hora
MsgBox Hour(Hora)
MsgBox Minute(Hora)
Saludos