in.Clear
   Case 2
      sI = InputBox("Enter text for the new item.", Me.Caption)
      If Len(sI) &gt; 0 Then
         barMain.Add , sI, Rnd * m_cIml.ImageCount
      End If
   Case 3
      sI = InputBox("Enter text for the new item.", Me.Caption)
      If Len(sI) &gt; 0 Then
         For i = 1 To barMain.ItemCount
            If (i &gt; 1) Then
               sPrompt = sPrompt &amp; ", "
            End If
            sPrompt = sPrompt &amp; barMain.ItemKey(i)
         Next i
         sI2 = InputBox("Ent