Error 6 desbordamiento en visual basic

[ddgpom]

Hola señores,

Yo soy nuevo en esto, ando programando en vb, y siempre me sale el mismo error, el error 6 sobre desbordamiento. El programa que tengo es el siguiente:

Sub macro1()
Load UserForm1
UserForm1.Show
End Sub
Function calculo(x As Double, y As Double, z As Double) As Double
Application.ScreenUpdating = False
Dim k As Double
Dim k1 As Double
Dim k2 As Double
Dim h As Double

k = 60000 / 3.1415
k1 = k * x
k2 = y * z

calculo = k1 / k2

Application.ScreenUpdating = True
End Function
Function rendimiento(x As Double, y As Double) As Double
Application.ScreenUpdating = False
Dim x1 As Double
Dim x2 As Double

x1 = 3.1415 * x * y
x2 = x1 / 60

rendimiento = Round(x2, [1])
Application.ScreenUpdating = True
End Function

El error me lo marca en "calculo = k1 / k2", os agradeceria que me aportaseis alguna solucion, porque ya no se que hacer.

Muchas gracias