Imports System

Public Module Module1

    Public Sub Main()

        'DECLERATION

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

​

        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)

​

        'CALL THE FUNCTION AND PASS PARAMETERS

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

        Dim functionresult As Integer

        functionresult = addnumsfunction(firstnumber, secondnumber)

​

        'OUTPUT

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

        Console.WriteLine("Functiom 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

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

        'DECLERATION

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

​

        Dim result As Integer = 0

​

        'PROCESS

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

        result = n1 + n2

​

        'OUTPUT

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

​

        Console.WriteLine("Suboutline returned :" & result)

        Console.Readline()

    End Sub

End Module