Как передавать массивы из класса/в класс? - VB

'модуль класса - Class1
Private v As Long 'max индекс
Private a 'массив
 
Public Sub Class_Initialize()
  v = 2 'значение по умолчанию
  ReDim a(v, v)
End Sub
 
'получить
Public Function getv() As Long
  getv = v
End Function
Public Function geta(ByVal i As Long, ByVal j As Long) As Long
  geta = a(i, j)
End Function
 
'установить
Public Sub setv(ByVal value As Long)
  v = value
  ReDim a(v, v)
End Sub
Public Sub seta(ByVal i As Long, ByVal j As Long, ByVal value As Long)
  a(i, j) = value
End Sub