Ich habe mir dein Programme jetzt nicht im Detail angeschaut. Aber es gibt nur eine Möglichkeit wo es hängen bleiben kann, und zwar in der DO LOOP
Do
X = Inkey()
Befehl = Befehl + X
Loop Until X = "x"