Imports System

Public Module Module1

​

    Public Sub Main()

          'Setup variables

        Dim firstNum As Integer

        Dim secondNum As Integer

        Dim tempNum As Integer

​

        'asignment - asign values by asking for user input

        Console.WriteLine("Please enter your first number")

        firstNum = Console.ReadLine

​

        Console.WriteLine("Please enter your second number")

        secondNum = Console.ReadLine

​

        Console.WriteLine("Your numbers were " & firstNum & " & " & secondNum)

​

        'swap the data

        tempNum = firstNum

        firstNum = secondNum

        secondNum = tempNum

​

        Console.WriteLine("Your new swapped numbers are  " & firstNum & " & " & secondNum)

​

​

        Console.ReadLine()

    End Sub

End Module