WORD2002 - Parameter per .OnAction übergeben

[rafke]

Moin!

Ich möchte in Word eine Button einbauen der dann per .OnAction
ein Makro startet, nun hab ich nur das Problem das ich mehrere
Buttons habe und für alle ein allgemeines Makro bauen will.
Deswegen müsste ich einen Parameter übergeben

With UMenu_1.Controls.Add(Type:=msoControlButton)
.Caption = "Button1"
.OnAction = "SubUMenu"
End With

...

Sub SubUMenu(strText as String)
  MsgBox (StrText)   '--Beispiel--
End Sub

so provoziere ich aber nur eine Fehlermeldung - Argument ist nicht
optional - und wenn ich dann strText als optional angebe bekomme
ich eine leere MsgBox

nun hab ich schon .OnAction = "'SubUMenu""hallo welt""'"
und auch schon so manch anderes Konstrukt versucht ...