Trennlinie in CommandBar

Hallo Leute,

ich erzeuge bei jedem Öffnen der Mappe eine Symbolleiste mit 6 Buttons.

Wie kann ich Trennlinien zwischen den 4 /5 und 5/6 Button einbauen?

mein Code:

Private Sub Workbook_Open()
      Dim Menue
      Dim Button1, Button2, Button3, Button4, Button5, Button6
      
      Set Menue = Application.CommandBars.Add(Name:="    Navigationshilfe", Temporary:=True)
            With Menue
                  .Visible = True
                  .Top = 130
                  .Left = 28
            End With
      
      Set Button1 = Menue.Controls.Add(Type:=msoControlButton, Before:=1, Temporary:=True)
            With Button1
                  .Style = msoButtonIconAndCaption
                  .Caption = "erste Zeile"
                  .FaceId = 594
                  .OnAction = "ErsteZelle"
            End With
      
      Set Button2 = Menue.Controls.Add(Type:=msoControlButton, Before:=2, Temporary:=True)
            With Button2
                  .Style = msoButtonIconAndCaption
                  .Caption = "erste Spalte"
                  .FaceId = 154
                  .OnAction = "GeheNachLinks"
            End With
      
     Set Button3 = Menue.Controls.Add(Type:=msoControlButton, Before:=3, Temporary:=True)
            With Button3
                  .Style = msoButtonIconAndCaption
                  .Caption = "letzte Zeile"
                  .FaceId = 597
                  .OnAction = "GoToEnde"
            End With
      
      Set Button4 = Menue.Controls.Add(Type:=msoControlButton, Before:=4, Temporary:=True)
            With Button4
                  .Style = msoButtonIconAndCaption
                  .Caption = "letzte Spalte"
                  .FaceId = 157
                  .OnAction = "GeheNachRechts"
            End With
      
      Set Button5 = Menue.Controls.Add(Type:=msoControlButton, Before:=5, Temporary:=True)
            With Button5
                  .Style = msoButtonIconAndCaption
                  .Caption = "nächste TNR."
                  .FaceId = 129
                  .OnAction = "NächsteTeilenummer"
            End With
      
      Set Button6 = Menue.Controls.Add(Type:=msoControlButton, Before:=6, Temporary:=True)
            With Button6
                  .Style = msoButtonIconAndCaption
                  .Caption = "alle Filter entfernen"
                  .FaceId = 605
                  .OnAction = "AlleFilterEntfernen"
            End With
End Sub

Vielen Dank

MikeS