Imports System
Public Module Module1
Public Sub Main()
Dim password as string
Dim sunflower as string
password = sunflower
While password = sunflower
Console.WriteLine("enter the password")
password = Console.ReadLine()
Continue While
password = Console.Readline()
if password = sunflower then
end if
end while
End Sub
End Module