После работы функции VBA переменные меняются

[Tigranik]

Добрый день, вот такой простой код... ни как не могу понять почему в результате работы машина сначала выдает мне 4 а потом 2? Ведь переменная y не должна меняется!

Sub test1()
    y = 3
    MsgBox test2(y)
    MsgBox test2(y)
End Sub

Function test2(x)
    x = x - 1
    test2 = x * 2
End Function

[Tigranik]

p.s. объявлял переменные как Dim y As Integer безполезно...

[Serge_Bliznykov]

передавать значение параметра надо по значению, а не по ссылке (см. Передача аргументов по значению и по ссылке (Visual Basic))
например, так:

Function test2(ByVal x)
    x = x - 1
    test2 = x * 2
End Function

[Казанский]

или так

    MsgBox test2((y))

[Tigranik]

Работают оба из предложных вариантов, большое вам Спасибо!