Visual Basic - Manejo de horas

Como puedo hacer para pasar un numero decimal a horas, por ejemplo si tengo 2,02 pasar ese numero a 2 horas con x minutos!
Si alguien me puede ayudar le estaria muy agradecido!

Utiliza esta funcion traslada un numero entero en horas y minutos...

Function HorasdeNumero(Numero As Double)
numeroenmin = Format(Val(Numero) / 60, "####.00")
horas = CStr(Trim$(Mid$(numeroenmin, 1, InStr(numeroenmin, ".") - 1)))
minutos = CStr((Trim$(Mid$(numeroenmin, InStr(numeroenmin, ".") + 1)) * 60) / 100)

HorasdeNumero = Format(horas, "####0") + " Hrs." + Format(minutos, "#0") + " Min."
End Function