[Sesa_Mina]

Dim A as string, B as byte
A=""
B=0
Nochmal:
   do
      A=inputbox("Gib was ein!")
   loop until A<>""
   if A="passwort" then
      msgbox "Passwort stimmt. Du bist drin!"
   else
      msgbox "Passwort falsch! Probier es nochmal!"
      B=B+1
      If B=3 then End
      Goto Nochmal
   end if

Damit realisierst ne einfache passwortabfrage. Nach 3x falscher Eingabe wird das Programm beendet.

Is an und für sich eh ganz einfach