Imports System              

Public Module Interchange

    Public Sub Main()

        Dim A as integer

        Dim B as Integer

        Dim C as integer

        Console.WriteLine ("Cambia los valores")

        Console.WriteLine ("Valor de A")

        A=Console.ReadLine 

        Console.WriteLine ("Valor de B")

        B=Console.ReadLine

        C=A

        A=B

        B=C

        Console.WriteLine ("Valor de A")

        Console.WriteLine (A)

        Console.WriteLine ("Valor de B")

        Console.WriteLine (B)

    End Sub

End Module