MsgBox innerhalb einer While 1 Schleife mittels X-Button beenden