Para verificar los valores puedes realizar lo siguiente:
Dirígete a la linea donde se encuentra la asignación calculo = k1 / k2 y presiona F9, ejecuta tu proyecto, este se detendrá antes de realizar la división.
En modo Debug, puedes poner el cursor del mouse encima de tus variables para ver en un tooltip el valor que tienen asignados en ese momento, o puedes ingresar en la ventana de inmediato el comando
? seguido por la variable que necesitas saber el valor. Ej.:
?k1
?k2
En el siguiente enlace puedes verificar el "tamaño" que tiene un double, para ver si la división que estas realizando sobrepasa los límites de una variable tipo double.
http://msdn.microsoft.com/en-us/libr...8VS.60%29.aspx
Otra forma de ver los valores que tienen asignadas las variables es realizar un
debug.print
Código vb:
Ver originalDebug.Print k1
Debug.Print k2
calculo = k1 / k2
Como posible solución, puedes cambiar el tipo de valor que devuelve la función a tipo Variant, de esta manera VB asignará el tipo de valor que crea que pueda contener el valor de la división.
Código vb:
Ver originalFunction calculo(x As Double, y As Double, z As Double) As Variant