Pass Integer to a function by value

Module Module1

    Sub NoChangeToParameter(ByVal 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)
        NoChangeToParameter(Number)
        Console.WriteLine("Number before function call: " & Number)
    End Sub

End Module