problemas con byref!

[x64core]

buenaaaas a todooos tengo un gravisimo problemaa y no tengo idea que pasaa!
es acerca de pasar los problemas por referencia
el codigo:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
Dim AAA As Integer

AAA = 50

BBB (AAA)
Debug.Print AAA
End Sub


Sub BBB(ByRef X As Integer)
X = X + 50
End Sub


al imprimir la variable AAA es valor es 50!!! y no 100!! es como que si me pasara la variable por valor que pasa? que hago mal perdon si es algo tonto pero estoy impactado

lo e seguido con el depurador y en el procedimiento BBB el valor de X cambia normal a 100 pero cuando retorna al form el valor cambia a 50! x3
gracias

[ignorantev1.1]

A la hora de llamar a la funcion "AAA", en vez de:

Código (vb) [Seleccionar] Expandir


BBB (AAA)


Usa:

Código (vb) [Seleccionar] Expandir


Call BBB(AAA)


ó

Código (vb) [Seleccionar] Expandir


BBB AAA


Ya que usar una variable en parentesis se esta indicando el valor de la variable.

Saludos!

[x64core]

   simplemente gracias no sabia