Cómo llamar a una función con variables (VBA Excel)

De esta forma creo yo las funciones con la cantidad de parametros
necesarios y sin ningun problema, inclusive existe la posibilidad de
crear parametros opciones.

Sub ProbarFuncion()
Dim Parametro1 As Double
Dim Parametro2 As Double
Parametro1 = 100
Parametro2 = 200
MsgBox Suma(Parametro1, Parametro2), vbInformation, "Resultado"
End Sub

Function Suma(ByVal pParametro1 As Double, ByVal pParametro2 As
Double) As Double
Dim varSuma As Double
varSuma = pParametro1 + pParametro2
Suma = varSuma
End Function

Saludos!

Marco Barboza - San Jose, Costa Rica

On Apr 24, 4:11 am, "Don Juan" wrote:

Hola grupo!
He creado una función en VBA para Excel de esta menra

Cargar_Valores("1") 'Y llamo a la función de abajo:

Function Cargar_Valores(ByVal Opcion1 as string)
Return 0
End Function

Pero me da error si llamo a dos parámetros, cómo se puede hacerlo?
El error me da aquí;

Cargar_Valores("1","ES") ' Cuando añado un segundo argumento me da
error, mismo si lo he declarado en mi función.

Function Cargar_Valores(ByVal Opcion1 as string,ByVal Pais1 as string)
Return 0
End Function

Muchas gracias!