Imports System

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)

​

        'CALL THE FUNCTION 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

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

​

        'DECLARATIONS

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

​

        Dim result As Integer = 0

​

        'PROCESS

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

​

        result = n1 + n2

​

        'OUTPUT

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

​

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

        Console.ReadLine()

    End Sub

End Module