If InCollection(colStuff, "ItemName") Then

Public Function InCollection(colTest As Collection, sKey As String) As
Boolean
'
' Check to see if item [sKey] is in collection [colTest].
' Return True if it is, false if not
'
   On Error GoTo NOT_FOUND
   'Original code
   'If VarType(colTest.Item(sKey)) = vbObject Then  
   
   'Adjusted because it was not case sensitive
   If colTest.Item(sKey) = sKey Then
      '
      ' This test will indicate if the item actually exists in the
      ' collection. No further checking is needed.
      '
   End If

   InCollection = True

Exit Function

NOT_FOUND:
   InCollection = False

End Function