Hallo!

Bei einer Schaltfläche aus der Formularsymbolleiste könntest Du das mit einem Makro realisieren, das vom Grundaufbau her folgendermaßen aussieht:

Sub Schaltfläche1_BeiKlick()
Static int_Befehl As Integer
int_Befehl = int_Befehl + 1
Select Case int_Befehl
Case 1
MsgBox \"Befehl 1\"
Case 2
MsgBox \"Befehl 2\"
Case 3
MsgBox \"Befehl 3\"
int_Befehl = 0
End Select
End Sub

Da, wo die Msgbox-Befehle stehen, müsstest Du die gewünschten Befehle reinschreiben oder zumindest einen entsprechenden Befehlsaufruf.

Gruß
Manes