salexeiy, Можно это дело и на макросах реализовать, например так: Код
#Macro DobVMas (index, mas, znah) ' #### следим за размером массива ####
index += 1 ' увеличиваем индекс на 1
If index > UBound(mas) Then ' если индекс вышел за верхнюю границу массива
ReDim Preserve mas(1 To index * 2) ' увеличиваем размер массива
EndIf
mas(index) = znah ' присваиваем значение
#EndMacro ' #####################################################
Dim As Integer i, indexIn, indexSt, masIn() ' для каждого массива своя переменная для индекса
Dim As String masSt()
ReDim masIn(1 To 1) : ReDim masSt(1 To 1)
DobVMas(indexIn, masIn, 1) ' добавляем числа
DobVMas(indexIn, masIn, 2)
DobVMas(indexIn, masIn, 3)
For i = 1 To indexIn : ? masIn(i) : Next ' выводим массив чисел
DobVMas(indexSt, masSt, "d") ' добавляем строки
DobVMas(indexSt, masSt, "f")
DobVMas(indexSt, masSt, "r")
For i = 1 To indexSt : ? masSt(i) : Next ' выводим массив строк
Sleep
