ArrayGroup
- это Nothing
.
линия
Private ArrayGroup() As dataAttribute
не присваивает значение ArrayGroup
, поэтому оно не создается, и вы получите нормальное значение с ошибкой блока при попытке его использовать.
вы, вероятно, хотите изменить конец вашей функции на что-то вроде.
Redim ArrayGroup(strArr.Length - 1) As dataAttribute
For count = 1 To strArr.Length - 1
valueListString = strArr(count).Split(";")
ArrayGroup(count).dateDate = valueListString(0)
ArrayGroup(count).timeString = valueListString(1)
Next
End Sub
Обратите внимание на ReDim
. Я не уверен, если вам нужен As
.