Beregning af tid

Jeg har fået lavet følgende vb kode til beregning af "Para 5" timer.

Public function para5(tj_sym as string) as byte

select case tj_sym
case "n1"
  para5 = 7
case "n2"
  para5 = 6
case else
  para5 = 0
end select
end function

Den virker i decimaltal, men da det er enheder der bliver optjent i timer (37 enheder = 3 timer) skal jeg have ændret min formel: =((celle/37)*3) til svar i tt:mm
Jeg har prøvet at ændre formatteringen, men det hjælper ikke.
Eller kan det løses i vb scriptet ?
Kan nogen hjælpe ?