Module Module1
Sub ParameterChange(ByRef A As Integer)
A = 1001
Console.WriteLine("Value of A in subroutine " & A)
End Sub
Sub Main()
Dim Number As Integer = 100
Console.WriteLine("Number before function call: " & Number)
ParameterChange(Number)
Console.WriteLine("Number before function call: " & Number)
End Sub
End Module
Number before function call: 100
Value of A in subroutine 1001
Number before function call: 1001