Visual Basic - tiempo rrecorrido

hola como puedo hacer para calcular el porcentaje de un tiempo recorrido
ej:
15:40:22 H esto son el total de horas que e gastado en recorrer un trayecto
10km trayecto recorrido.

quiero saber cuanto he tardado en 1km.

es algo parecido a esto

Private Sub Command1_Click()
Dim r As Integer
km = 1000
tiempo = 10
horas = 15
r = ((horas * km / tiempo) / 60)
MsgBox r
End Sub

gracias por contestar y tu interes pero no vale ,el resultado tiene que dar las horas minutos y segundos

ej:tengo 10h:20mi:30s =10:20:30 esto es el tiempo que he tardado
en un trayecto de 10 KM cuanto he tardado en 1 KM.
PERO DANDO EL RESULTADO CON horas minutos y segundos

Format(CDate("15:40:22") / 10, "hh:mm:ss")