Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Private Sub cmdRefVal_Click()
Dim a As Integer
Dim b As Integer
a = 1
b = 2
Debug.Print "In Ref Val: A = " & Trim(a) & " B = " & Trim(b)
Debug.Print "Call with Pass by Value"
MySubroutine (a), (b)
Debug.Print "In Ref Val: A = " & Trim(a) & " B = " & Trim(b)
Debug.Print "Call with Pass by Reference"
MySubroutine a, b
Debug.Print "In Ref Val: A = " & Trim(a) & " B = " & Trim(b)
End Sub
Private Sub MySubroutine(a As Integer, b As Integer)
a = 3
b = 4
Debug.Print "In MySubroutine: A = " & Trim(a) & " B = " & Trim(b)
End Sub