ergebnis:
ergebnis = InputBox("..."& Chr(13) & "Wählen sie:" & Chr(13) & "Die 1 für: ..." _
  & Chr(13) & "Die 2 für: ..." & Chr(13) & "Die 3 für: ..." & Chr(13) & "Die 4" & _
  "für: ... ")
 
If ergebnis = 1 Then
                            ...
goto weiter
end if
if ergebnis = 2 then ...
goto weiter
endif
...
if ergebnis = 4 then ...
goto weiter
end if
 
goto ergebnis
 
weiter:
...