er key to insert before: one of " &amp; sPrompt,
          Me.Caption)
         If Len(sI2) &gt; 0 Then
            barMain.Add , sI, Rnd * m_cIml.ImageCount, , , , , sI2
         End If
      End If
   Case 4
      For i = 1 To barMain.ItemCount
         If (i &gt; 1) Then
            sPrompt = sPrompt &amp; ", "
         End If
         sPrompt = sPrompt &amp; barMain.ItemKey(i)
      Next i
      sI = InputBox("Enter key to remove: one of " &amp; sPrompt, Me.Caption)
      If Len(sI) &gt; 0 Then
        