Imports System

Public Module Module1

    Public Sub Main()

        Dim con as string

        Console.WriteLine("¿Desea Continuar con el programa?")

        con = console.ReadLine()

        while (con = "si")

            Console.WriteLine("¿Desea Continuar con el programa?")

            con = console.ReadLine()

        end while

​

    End Sub

End Module