Inputbox Beenden in einer Schleife

Hi

hier erstmal der Quellcode

[autoit]

Func eingabe()
$file = FileOpen("liste.txt", 1)

[/autoit][autoit][/autoit][autoit]

If $file = -1 Then
MsgBox(0, "Fehler", "Die Datei konnte nicht geöffnet werden. ")

[/autoit][autoit][/autoit][autoit]

Exit
EndIf

[/autoit][autoit][/autoit][autoit]

While 1

[/autoit][autoit][/autoit][autoit]

$Vokabel=InputBox("Vokabeln Eingeben","Gib die vorgegebne Vokabel ein")
$Vokabe2=InputBox("Vokabeln Eingeben","Gib die abfrage Vokabel ein")

[/autoit][autoit][/autoit][autoit]

FileWrite($file, $Vokabel & "-" & $Vokabe2 & @CRLF)
WEnd

[/autoit][autoit][/autoit][autoit]

FileClose($file)

[/autoit][autoit][/autoit][autoit]

EndFunc

[/autoit][autoit][/autoit][autoit][/autoit]

Was ich vor hab:
ich will wenn ich bei einer von den Inputboxen auf x oder cancel klick das das Programm aus der schleife rausgeht eiso mit exitloop oder so

danke schon mal im voraus

ok hat geklappt und danke für die schnelle antwort ihr seit die besten