Sprung zw. Haupt- und Subroutine

[for_ro]

Dann sollte die Sub eher so aussehen:

Sub Test()                                                 
Do
   Key = Getatkbd()
Loop Until Key=113
End Sub

Gruß

Rolf