Imports System

Public Module Module1

    Public Sub Main()

        'Declarations

        '======================================

        Dim firstNumber As Integer = 0

        Dim secondNumber As Integer = 0

        'Assigment of values

        '======================================

        firstNumber = 23

        secondNumber = 165

        'call the subrutine and pass parameters

        '======================================

        Dim functionresult As Integer

        functionresult = addNumsFunction(firstnumber,secondnumber)

        'output

        '======================================

        Console.WriteLine("Function answer : ” & functionresult)

        Console.ReadLine（）

        End Sub

        Function addNumsFunction(Byval n1 as Integer, Byval n2 as integer)as integer

            'Must declare return datatype

            'process

            '==================================

            Dim answer As Integer

            answer = n1+n2

            'Return the value

            '==================================

            Return answer

        End function

        End Module