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