[Angel Sánchez]

Este error se genera ya que el tipo de dato que intentas pasar por parámetro no es el esperado. Me explico;

En esta línea de código:

Dim a, c As Double

Tu intentas declarar las dos variables como tipo Double, pero solo se le esta asignando a la variable c. Así que cambia esa línea a esto:

Dim a As Double, c As Double

Y has lo mismo con la variable b y d:

Dim b As String, d As String

El error:

Cuando tu no le asignas un tipo de dato a una variable se le asigna Variant. Y el error ocurre cuando en tu función velo dices que el parámetro debe de ser Double. Ósea no coinciden.

Recomendación:

Te recomiendo también que todas las variables que declares les pongas un nombre que sea relacionado con el valor que va a representar. Por ejemplo si tu variable “a” guardara la distancia pues ponte ese nombre “distancia”. De esa forma cualquier persona que lea tu código puede saber facilmente para que es cada cosa.

P.D. En algunos lenguajes de programación se puede declarar las variables de la forma que lo intentas hacer. Tal vez aquí también, pero en otra versión. Pero si te funciona con lo que te recomiendo ya dejamos este tema como una solución a estos problemas.