^^ Declare Sub Test

Do
Call Test
Loop

Sub Test()
A=X
End Sub

kann jetzt leider nicht weitermachen... die demo ist voll Bild  
jetzt brauch ich ne bessere idee oder vollversion
oder beides Bild