Sybolleiste,Code aus Archiv

ich habe folgenden Code aus dem Archiv.

Sub leiste()
On Error Resume Next
Dim CB As CommandBar
Dim CBC As CommandBarButton

Dim i%
Set CB = Application.CommandBars.Add( _
Name:="Neue Leiste", _
temporary:=True, _
Position:=msoBarTop)
CB.Visible = True
For i = 1 To 5
Set CBC = CB.Controls.Add(Type:=msoControlButton)
With CBC
.FaceId = 70 + i
.Caption = "&" & i & "Befehl"
.OnAction = "Befehl" & i
.Visible = True
End With
Next i

Alles klappt gut, nur auf den neuen Commanbuttons erscheinen die Texte "Befehl1", "Befehl2" etc nicht.

Hängt das irgendwie mit den FaceID zusammen?

Auf den neuen Buttons sollen nur die Texte, ohne Icons stehen.

Kann mir vielleicht jemand einen Tipp geben?

Vielen Dank im voraus,

Michael