Hi,

du kanst entweder die Taste auf ein Interrupt legen, der in eine Routine
springt wenn der Taster gedrückt wurde. Oder du legst in jede Do...Loop
eine Abfrage, die dann aus der Do...Loop springt.
Also: If Taster = 0 then Exit Do