no me deja pasar valores ByVal a una función

[Baldur]

Hola, tengo creada la siguiente función:

Código:

Private Sub puntoContrato(contrato As Variant, tipoCorreccion As String)

Y cuando le quiero pasar lo siguiente

Código:

puntoContrato(varCliente,"Escritura")

Me salta el siguiente mensaje:

Error de Compilación
Se esperaba: =

varCliente es el valor con el que va a operar y "Escritura" el tipo de operación tiene que hacer, Escritura, o "Lectura".

He probado con:

Código:

Private Sub puntoContrato(ByRef contrato As Variant, ByVal tipoCorreccion As String)

Pero me dice lo mismo.

Alguien me puede ayudar???
Gracias!