Celeigenschappen in tijd, omzetten naar kommagetal

[Nielsvw]

Ik heb nog een vraagje. De celeigenschappen in excel staan in tijd dus bvb 01:23:00, nu probeer ik via volgende code de uren en minuten te verkrijgen (want de seconden staan bij mij altijd op 0)
Ik gebruik hiervoor een function

Private Function Omzetten(ByVal tijd As String) As Double
Dim min As Integer, hours As Integer, lengte As Integer
lengte = Len(tijd) - 6
min = CInt(Left(Right(tijd, 5), 2))
hours = CInt(Left(tijd, lengte))
If min = 0 Then
    Omzetten = hours
Else
    Omzetten = hours + min / 60
End If
End Function

Snapt iemand wat ik fout doe? Ik zie het helemaal niet..

 

[HSV]

Waarom niet.
Is geen kommagetal.

Sub hsv()
 Columns(1).NumberFormat = "hh:mm"
End Sub