Private Sub Main() Dim num1 As Integer Dim num2 As Integer
num1 = 10
num2 = 15
Call passByRef(num1)
Call passByVal(num2)
MsgBox (num1 & " " & num2) End Sub Private Sub passByRef(ByRef num3 As Integer)
num3 = 20 End Sub Private Sub passByVal(ByVal num2 As Integer)
num2 = 20 End Sub