Imports System

Public Module Module1

    Public Sub Main()

        'DECLARATIONS 

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

        Dim firstNumber As Integer = 0

        Dim secondNumber As Integer = 0

        'ASSINGNMENT OF VALUES

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

        firstNumber = 23

        secondNumber = 165

        'CALL THE SUBROUTINE AND PASS PARAMETERS

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

        AddNums(firstNumber, secondNumber)

    End Sub

End Module

​

​

​