Imports System

Public Module Module1

    Public Sub Main()

        Dim n as string

        Console.WriteLine("Escriba SI o NO")

        n = Console.ReadLine()

        While(n = "SI")

        Console.WriteLine("Escriba SI o NO")

            n = Console.ReadLine()

        End while

        Console.WriteLine("El programa finalizó")

    End Sub

End Module