Sub mainsub()
befehle = Array("Befehl1","Befehl2","Befehl3")
 
for i = 0 to ubound(befehle)
   if benutzereingabe = befehle(i) then
       'application.run befehle(i)
       exit sub
   end if
next
 
End Sub
 
Sub Befehl1()
 '...