How to make a "List" Property??

The LIST property for COMBO/LISTBOX is just a STRING delimited with vbCRLF. To implement this, you have few ways but here is one that I came up with (have not fully tested this but it should demonstrate the objective)

In a CLASS MODULE (lets call is clsListData)

Dim vList() As Variant
Dim nCurPoint As Long

Private Sub Class_Initialize()
ReDim szList(0)
nCurPoint = 0
End Sub

Public Property Get List(Index As Variant) As Variant
On Error Resume Next
List = vList(Index)
If (Err.Number <> 0) Then
Call Err.Raise(vbObjectError + 1, "Class1::Get-List", "Invalid index")
End If
End Property

Public Property Let List(Index As Variant, ByVal vNewValue As Variant)
On Error Resume Next
vList(Index) = vNewValue
If (Err.Number <> 0) Then
Call Err.Raise(vbObjectError + 1, "Class1::Let-List", "Invalid index")
End If
End Property

Public Sub AddItem(vValue As Variant)
ReDim Preserve vList(nCurPoint)
vList(nCurPoint) = vValue
nCurPoint = nCurPoint + 1
End Sub

Public Sub Clear()
ReDim vList(0)
nCurPoint = 0
End Sub

Public Property Get Count() As Long
Count = UBound(vList)
End Property

To implement:

Sub Main()
Dim oList As New clsListData
Call oList.AddItem("test")
Call oList.AddItem(1)
Call oList.AddItem("email")

MsgBox oList.List(0)
MsgBox oList.List(1)
MsgBox oList.List(2)

' this line will throw and exception - invalid index
MsgBox oList.List(3)
End Sub

Have fun,
-Cool Bizs