If (m_colhWnd.Count &gt; 0) Then
      
      Dim ctlNew As vbalCommandBar
      If Not getCachedControlInstance(ctlNew) Then
         Dim lhWnd As Long
         Dim ctl As vbalCommandBar
         lhWnd = m_colhWnd(1)
         If (ControlFromhWnd(lhWnd, ctl)) Then
            
            Set ctlNew = ctl.NewInstance()
            
            If Not (ctlNew Is Nothing) Then
               cacheControlInstance ctlNew
            End If
            
         End If
      End If
      Set NewInstance = ctlNew