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
|