trennung zwischen button in einer menüleiste

hallo excels,
wie kann ich zwischen den einzelnen bottun eine trennung erreichen.entweder lücke oder strich.
Sub auto_open()

Sheets("Starten").Select
Application.Wait Now + 10 / 24 / 100 / 100
Sheets("l10").Select

   Dim cb As CommandBar
    Dim CBC As CommandBarButton
    Dim I%
    On Error Resume Next
    Set cb = Application.CommandBars.Add(Name:="Eltlager", _
        temporary:=True, Position:=msoBarTop)
    On Error GoTo 0
    If Application.CommandBars("Eltlager").Visible = False Then
        cb.Visible = True
        For I = 1 To 11
            Set CBC = cb.Controls.Add(Type:=msoControlButton)
            With CBC
                .Width = 50                 ' Breite der Schalter
                .Style = msoButtonCaption   ' Text auf Schaltfläche
                .FaceId = 156
                Select Case I
                    Case 1
                    .FaceId = 156
                        .Caption = "Lager SWC (10)"
                        .OnAction = "l10"
                        .TooltipText = "Lager 10"
                    Case 2
                        .Caption = "Wiederverwendung (57) "
                        .OnAction = "l37"
                        .TooltipText = "Lager 57"
                    Case 3
                        .Caption = "Rep.Zähler (54)"
                        .OnAction = "l34"
                        .TooltipText = "Lager 54"
                    Case 4
                        .Caption = "In Reparatur (55)"
                        .OnAction = "l35"
                        .TooltipText = "Lager 55"
                    Case 5
                        .Caption = "Einbaulager (51)"
                        .OnAction = "l31"
                        .TooltipText = "Lager 51"
                    Case 6
                        .Caption = "Schrottlager (6)"
                        .OnAction = "l36"
                        .TooltipText = "Lager (56)"
                    Case 7
                        .Caption = "Ausbaulager (52)"
                        .OnAction = "l32"
                        .TooltipText = "Lager (52)"
                     Case 8
                        .Caption = "Stichproben (53)"
                        .OnAction = "l33"
                        .TooltipText = "Lager (53)"
                    Case 9
                        .Caption = "Kunden"
                        .OnAction = "kunde"
                        .TooltipText = "Zähler beim Kunden"
                    Case 10
                        .Caption = "suchen"
                        .OnAction = "suchen"
                        .TooltipText = "Zählernummer suchen"
                    Case 11
                        .Caption = "Auswertungen"
                        .OnAction = "Auswertungen"
                        .TooltipText = "Zählerlisten"
                End Select
            End With
        Next I
    End If
   
    On Error GoTo 0
    
End Sub

gruss
peter