DoWhile

Module Module1

    Sub Main()
        Dim password As String = String.Empty
        Do While password <> "SHAZAM"
            password = Console.ReadLine()
            password = password.ToUpper()
        Loop
        Console.WriteLine("vIARNA pAROLA")
        Console.ReadLine()
    End Sub

End Module