VBAでの参照渡しが機能しません

Question

参照で渡してテストしたいのですが、アクセスで値渡しをしたいのですが、動作しません。

Sub passByRef(ByRef a As Integer) 
    a = a + 1 
End Sub 
Sub passByVal(ByVal a As Integer) 
    a = a + 1 
End Sub 

Private Sub cmdByRef() 
    Dim i as Integer 
    i = 10 
    passByRef i 
    MsgBox i 
End Sub 
Private Sub cmdByVal() 
    Dim i as Integer 
    i = 10 
    passByVal i 
    MsgBox i 
End Sub 

refで渡しても、参照渡し機能ではありません。何か案が？

Answer 1

maybe you should do this. 

Private Sub cmdByRef() 
    Dim i as Integer 
    i = 10 
    passByRef i 
    MsgBox "Result of passByRef " + i 
End Sub 
Private Sub cmdByVal() 
    Dim i as Integer 
    i = 10 
    passByVal i 
    MsgBox "Result of passByVal " + i 
End Sub