Dim i
For i=1 to 1002
If n=i Then GoTo BedingungNichtErfüllt
Next i
 
'Hier der Code, wenn alle Bedingungen erfüllt sind:
...
GoTo CodeFuerBeideFaelle 'Hier der Sprung zu dem Codeabschnitt, der in beiden 
' Fällen auftritt
 
'Hier der Code, wenn auch nur eine Bedingung nicht erfüllt wird:
BedingungNichtErfüllt:
...
 
CodeFuerBeideFaelle: