Summation Using Function 2

Module Module1
    Sub Main()
        Dim result As Integer
        result = sum2values() 'calling the function
        Console.WriteLine("Result=" & result)
        Console.ReadLine()
    End Sub
    'defining a function
    Function sum2values()
        Dim i, j As Integer
        Console.Write("Enter 1st Number: ")
        i = CInt(Console.ReadLine())
        Console.Write("Enter 2nd Number: ")
        j = CInt(Console.ReadLine())
        sum2values = i + j
    End Function
End Module