Redondear Costo con Horas en Visual Basic 6.0

Hola bueno antes que nada un saludo y muy bien por mantener VB 60, pues muchas personas lo dan por muerto pero lo cierto es que los programadores deciden cuando muere un lenguaje...
Mi planteamiento es así
Hora Inicio
Hora Final
Condiciones SI consume...
1-10 Minutos no se cobra nada :)
Después de 11 Minutos en adelante = 10 Pesos que es la cuota fija no hay costos como 11$, 12$, 13$...etc solo 10 y...mejor explicado
1 Hora = 10 Pesos
1 Hora a 1:10 Minutos = 10 Pesos
y tengo este código pero estoy muy novato para terminar y duras penas pude con esto

Private Sub CalculaPago()
precio = 10
Dim t0 As Variant, t1 As Variant, tot As Variant
Dim h As Double, m As Double, es As Double, HH As Double, mm As Double, ss As Double
t0 = Format(HF, "hh:mm") 'HF Label Time started HF= LblFechaIni.Text
t1 = Format(HI, "hh:mm") 'Label Time Finished HF= Date
tot = Format(TimeValue(t0) - TimeValue(t1), "hh:mm")
h = CDbl(Mid(tot, 1, 2))
m = CDbl(Mid(tot, 4, 2))
mm = m / 60
HH = h + m

If HH = 1 and mm <= 10 Then
LblConsumoHoras.Caption = h & ":" & m
LblCosto.Caption = "10 $"
ElseIf HH > 1 and mm <= 10 Then
LblConsumoHoras.Caption = h & ":" & m
LblCosto.Caption = Format((HH * precio) , "######") & " $"
End If
End Sub

o se me ocurrio esta pero no funciona tampoco

If mm <= 10 Then
LblConsumoHoras.Caption = h & ":" & mm
LblCosto.Caption = "$0.00"
ElseIf hh = 1 And mm <= 9 Then
LblConsumoHoras.Caption = hh & ":" & mm
LblCosto.Caption = "$10.00"
ElseIf hh > 1 And mm <= 9 Then
LblConsumoHoras.Caption = hh & ":" & mm
LblCosto.Caption = Format((hh * precio), "######") & " $"
End If

El procedimiento lo mando a llamar desde un boton el recoje las fecha inicial de un label y la fecha final de la fecha en la que este la pc, espero alguien me pueda ayudar u orientar (Perdon por lo largo :D )