Error de desbordamiento

[ddgpom]

Hola señores y señoras, soy nuevo en el uso de la pagina, y nose si debo colocar esto aqui pero bueno yo continuo.

Resulta que estoy realizando un programa sencillito de programacion en VB, y no se porque motivos siempre me aparece el un error, el cual se hace llamar error 6 por desbordamiento. A continuacion os muesto el programa:

Function calculo(a As Double, b As Double, c As Double) As Double
Dim k As Long
Dim k1 As Double
Dim k2 As Double
Dim h As Double

k = 60000 / 3.1415
k1 = k * a
k2 = b * c
h = k1 / k2

calculo = Round(h, [0])

End Function

Os agradeceria si ustedes saben y es posible, conseguir adoptar alguna solucion para eliminar el error que aparece.

Muchisimas gracias a todos

Un saludo