ByVal Calling

Module Module1
    Sub Main()
        Dim result As Integer
        Dim x, y As Integer
        Console.WriteLine("ByVal")
        Console.Write("Enter Original value1:")
        x = CInt(Console.ReadLine)
        Console.Write("Enter Original value2:")
        y = CInt(Console.ReadLine)
        Console.WriteLine()
        result = sum2values(x, y) 'calling the function with 2 parameters
        Console.WriteLine("Result=" & result)
        Console.WriteLine()
        Console.WriteLine("Now Values of x=" & x & " and y=" & y)
        Console.WriteLine()
        Console.WriteLine("x and y are Unchanged")
        Console.ReadLine()
    End Sub
    'defining a function with 2 parameters
    Function sum2values(ByVal x, ByVal y)
        'modifying values of x and y
        Console.Write("Enter New value1:")
        x = CInt(Console.ReadLine)
        Console.Write("Enter New value2:")
        y = CInt(Console.ReadLine)
        sum2values = x + y
    End Function

End Module