Visual Basic - formato hora

Hola a todos.

Mi duda es la siguiente, tengo un contador que cambia cada un segundo y lo muestro en un control de texto.
Mi intención es que se muestre el tiempo transcurrido en horas, minutos y segundos; y hasta ahora solamente me muestra segundos nada más.
Sé que esto tiene que ver con la función format, pero no sé como aplicarla.

Gracias de antemano.

Prueba esto:
Dim Seg As Byte, Min As Integer, Hor As Integer, TS As Long
Private Sub Timer1_Timer()
TS = TS + 1
Seg = TS Mod 60
Min = TS \ 60
Min = Min Mod 60'Para que no pasen de 59 min
Hor = TS \ 3600
Text1 = Format(Hor, "#00:") & Format(Min, "00:") & Format(Seg, "00")
End Sub