Private tmpList As Variant
Private tmpCollList As New Collection
 
Public Sub Additem(ByVal vNewValue As Variant, Optional ByVal sKey As String)
   tmpCollList.Add vNewValue, sKey
End Sub
 
Public Sub RemoveItem(ByVal sIndex As Variant)
   tmpCollList.Remove (sIndex)
End Sub
 
Public Property Get List() As Variant
   List = tmpCollList(tmpList)
End Property
 
Public Property Let List(ByVal vNewValue As Variant)
   tmpList = vNewValue
End Property