 gErr 3
   End If
End Sub
Public Property Get BarItem(index As Variant) As cCommandBarInt
   Set BarItem = m_colCommandBars.Item(index)
End Property
Public Function BarAdd(ByVal sKey As String) As cCommandBarInt
   If CollectionContains(m_colCommandBars, sKey) Then
      gErr 5
   ElseIf (IsNumeric(sKey)) Then
      gErr 4
   Else
      Dim barInt As New cCommandBarInt
      barInt.fInit sKey
      m_colCommandBars.Add barInt, sKey
      Set BarAdd = barInt
   End If
End Function

Public Function ButtonCoun