ControlPopup prüfen ob 2 mal vorhanden

Public Sub prcCreateButton()
Dim myCommandBar As CommandBar
Dim myCommandBarPopup As CommandBarControl
Dim Mb As CommandBarControl
Call prcDeleteButton(True)
Set myCommandBar = Application.CommandBars(COMMANDBAR_NAME)
Set myCommandBarPopup = myCommandBar.Controls.Add(Type:=msoControlPopup, _
Before:=myCommandBar.Controls.Count + 1, Temporary:=True)
myCommandBarPopup.Caption = "PT-Tool"
tut was.
End Sub

Public Sub prcDeleteButton(Optional ByVal bolDelete As Boolean = False, _
Optional ByVal bolHide As Boolean = True)
Dim myCommandBar As CommandBarControl
Set myCommandBar = CommandBars.FindControl(Tag:="PT-Tool")
If Not myCommandBar Is Nothing Then
With myCommandBar
If bolDelete Then .Delete Else .Visible = bolHide
End With
Set myCommandBar = Nothing
End If
End Sub