Dim oCol As New Collection

Dim sArray(2) As String
sArray(0) = "Hans"
sArray(1) = "Mustermann"
sArray(2) = "Berlin"
oCol.Add sArray

Debug.Print oCol.Item(1)(0)  ' Vorname
Debug.Print oCol.Item(1)(1)  ' Name
Debug.Print oCol.Item(1)(2)  ' Ort

Option Explicit
 
Private m_Name As String
Private m_Vorname As String
Private m_Ort As String
 
Public Sub AddData(ByVal Vorname As String, ByVal Name As String, ByVal Ort _
  As String)
  m_Name = Name
  m_Vorname = Vorname
  m_Ort = Ort
End Sub
 
Public Property Get Name() As String
  Name = m_Name
End Property
 
Public Property Let Name(ByVal value As String)
  m_Name = value
End Property
 
Public Property Get Vorname() As String
  Vorname = m_Vorname
End Property
 
Public Property Let Vorname(ByVal value As String)
  m_Vorname = value
End Property
 
Public Property Get Ort() As String
  Ort = m_Ort
End Property
 
Public Property Let Ort(ByVal value As String)
  m_Ort = value
End Property

Dim oClass As New Class1
oClass.AddData "Hans", "Mustermann", "Berlin"
oCol.Add oClass

Debug.Print oCol.Item(1).Name
Debug.Print oCol.Item(1).Vorname
Debug.Print oCol.Item(1).Ort

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de