Imports System

Imports Microsoft.VisualBasic

​

Public Module Module1

    Public  Sub Main()

        'DECLARATIONS

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

        Dim firstnumber as integer = 0

        Dim secondnumber as integer = 0

        'ASSIGNMENT OF VALUES

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

        firstnumber = 23

        secondnumber = 165

        'CALL THE SUBROUTINE AND PASS PARAMETERS

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

        AddNUms(firstnumber, secondnumber)

    End Sub

    Sub AddNUms(ByVal n1 As Integer, ByVal n2 As Integer)

        'DECLARATIONS

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

        Dim Result As Integer = 0

        'PROCESS

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

        Result = n1 + n2

        'OUTPUT

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

        Console.WriteLine("Result" & Result)

        Console.ReadLine()

    End Sub

    Function addNumsFunction(Byval n1 as integer, Byval n2 as integer)as integer 'must declarereturn datatype

        'process

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

        Dim answer as integer

        answer = n1 + n2

        'return the value

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

        return answer

    end function

End Module