perhaps simplest (at this time of night!) to just modify the final part of the UDF such that instead of:

If LCase(strReturn) Like "time*" Then
    getGoogDistanceTime = Evaluate("""" & Replace(Replace(getGoogDistanceTime, " hours ", ":"), " mins", "") & ":0.0" & """+0")
End If
you have

If LCase(strReturn) Like "time*" Then
    getGoogDistanceTime = Evaluate("""" & Replace(Replace(getGoogDistanceTime, " hours ", ":"), " mins", "") & ":0.0" & """+0")
Else
    getGoogDistanceTime = Val(getGoogDistanceTime)
End If