Aqui está como eu tentei abordar a situação:
‘Declare Name Array Propriedade
Public Property Name (ByVal index As Integer) As String
Get
index = nStudents
Return _Name (index)
End Get
Set (value As String)
End Set
End Property
‘ Declare Dishes Array Propriedade Propriedade
pública Dishes (ByVal index As Integer) As Integer
Get
Return _Dishes (index)
End Get
Set (value As Integer)
End Set
End Propriedade
Pública Sub New () ‘Resize _Name And _Dishes Arrays
ReDim _Name (nStudents)
ReDim _Dishes (CInt (nStudents))
End Sub