Imports System

Public Module Module1

    Public Sub Main()

        dim intNum1 as integer=5

        dim intNum2 as integer=8

        dim intAnswer as integer

        add(intNum1, intNum2, intAnswer)

        console.writeline(intAnswer)

    End Sub

    sub add(ByVal number1 as integer, ByVal number2 as integer, Byref final as integer) 

        final =number1 + number2

        end sub

End Module