Diferencia ByVal, ByRef...

[ebu]

aqui tienes dos ejemplos q me han ayudado a mi:

Código de ejemplo ByVal

Private Sub Command1_Click()
Dim Un_Valor As Long
Un_Valor = 100
'Se envía la variable por Valor ( ByVal )
Call Sumar(Un_Valor)
'Muestra el valor que es 100, ( no se modificó en la función Sumar )
MsgBox Un_Valor
End Sub

Sub Sumar(ByVal Valor As Long)
'Modifica la variable
Valor = Valor + 100

End Sub



Código ByRef

Private Sub Command1_Click()
Dim Un_Valor As Long
Un_Valor = 100
'Se envía la variable por Referencia ( ByRef ) con el valor 100
Call Sumar(Un_Valor)
'Muestra el valor que ahora es 200, ( ya que se modificó en la Sub Sumar)
MsgBox Un_Valor
End Sub

Sub Sumar(ByRef Valor As Long)
'Modifica la variable
Valor = Valor + 100
End Sub


p.d. como bien dijo MaxExtreme Function MiFuncion(Parametro As String) es igual a
Function MiFuncion(ByRef Parametro As String)