Visual Basic.NET - Convertir numero en horas

Hola , tengo el siguiente problema, al obtener el valor de una hoja de calculo que esta en formato hora "1:13:47" en la rutina de vb.net me retorna un numero "0,051235" , la pregunta es la siguiente como puedo hacer para mantener el formato de hora osea que en vb.net obtenga "1:13:47" y no "0,051235"

Gracias por vuestra atencion

Public Function HourDec(h As Variant) As Variant
If Not IsNull(h) Then
HourDec = Hour(h) + Minute(h) / 60 + Second(h) / 3600
End If
End Function

Public Function DecHour(h As Variant) As Variant
Dim nHour As Integer
Dim nMinutes As Integer
Dim nSeconds As Integer

nHour = Int(h)
nMinutes = Int((h - nHour) * 60)
nSeconds = Int(((h - nHour) * 60 - nMinutes) * 60)
DecHour = nHour & ":" & nMinutes & ":" & nSeconds
End Function

Ejemplo:

Private Sub Command1_Click()
Dim h As Single
Dim d As String
Cls
d = "10:37:58"
h = HourDec(d)
Print "Hora Decimal = "; d
Print "Hora Estándar = "; h
Print "Hora de Decimal a Estándar = "; DecHour(h)
End Sub

El parámetro