Public ReadOnly Property Person(ByVal x As Int16) As MyPerson
        Get
            Return m_Person(x)
        End Get
    End Property

Private _Count As Int16
  	Public ReadOnly Property Count As Int16
        Get
            Return _Count
        End Get
    End Property
 
    Public Sub GetPersonen()
	'.....
	'.....
 	_Count = Ubound(m_Daten)
    End Sub