Могу ли я заменить имя массива на переменную и добавить к ней значение?

У меня есть код VBA, который проходит через набор данных и в зависимости от определенных параметров сохраняет элементы этих данных в 1 из 4 общедоступных трехмерных массивов (поскольку данные из массивов вызываются позже из другой функции). Структура массивов одинакова (как и в одинаковом количестве измерений), но размер каждого третьего измерения каждого массива различается, поэтому каждый из них Redim'd до полного размера, а затем данные добавляются процедурно. Разный размер третьего измерения является причиной использования четырех отдельных массивов, поскольку позже я также вывожу информацию о массиве в виде сводки на лист.

Код проходит через ifs и selects, а затем добавляет данные в массив в отдельной функции.

Я также хочу определить, в какой массив отправляются данные, на основе зацикленных данных, и использовать переменную для хранения имени массива, передавая его функции, которая фактически хранит данные.

Что-то вроде этого псевдокода:

Public Arr1(), Arr2(), Arr3(), Arr4()

Sub ProcessData()
Dim WhichArray, Dim1, Dim2, Dim3 'Also tried WhichArray as Variant

For Each datum in Data
'Ifs and Selects, etc to determine what array the data belongs to and to Redim each array to accommodate.
'e.g. datum belongs in Arr3(3, 1, 2)
    WhichArray = Arr3 ' Also tried Set WhichArray = Arr3 here too.
    Dim1 = 3
    Dim2 = 1
    Dim3 = 2

    Call fnAddToArray(WhichArray, 3, 1, 2, datum) 'I've tried "ByRef WhichArray As Variant" here too
Next datum
End Sub

Затем я хочу вызвать сабвуфер:

Sub fnAddToArray(VarArray, Dim1, Dim2, Dim3, Datum)

VarArray(Dim1,Dim2,Dim3) = Datum

End Sub

Поскольку данных так много, и они могут попасть в любой из этих четырех массивов, я хочу иметь возможность передавать имя массива в качестве переменной в Sub, но это просто генерирует новый массив с именем VarArray и сохраняет его там вместо используя Arr3, хранящийся в переменной.

Я также попробовал зубчатый массив для хранения массивов, затем просто передал индекс в подпрограмму и сохранил значение во внутреннем массиве, как я видел это в другом месте на SO:

Public DataArrays()
DataArrays = Array(Arr1, Arr2, Arr3, Arr4)
...'same For loop as before, datum belongs in Arr3(3, 1, 2)
    WhichArray = 2 '(0 base array)
    Dim1 = 3
    Dim2 = 1
    Dim3 = 2

    Call fnAddToArray(WhichArray, Dim1, Dim2, Dim3)
Next datum
End Sub

С сабом:

Sub fnAddToArray(ArrInd, Dim1, Dim2, Dim3, Datum)

DataArrays(ArrInd)(Dim1, Dim2, Dim3) = Datum

End Sub

Это просто возвращает ошибки несоответствия типов во время выполнения, даже объявляя их как варианты.

Возможно ли то, что я хочу сделать? Если да, то что я здесь делаю не так?

===================РЕДАКТИРОВАНИЕ после ответа Тима================

Это ближе к моему реальному коду, на случай, если я пропустил что-то важное:

Public arrAZVATSummData(), arrEBSummData(), arrWSSummData(), arrAZWSSummData() 'Arrays to store the summarised data for output
Public arrSummDatas(1 To 4)

Sub ProcessData()
arrSummDatas(1) = Array(arrAZVATSummData)
arrSummDatas(2) = Array(arrEBSummData)
arrSummDatas(3) = Array(arrWSSummData)
arrSummDatas(4) = Array(arrAZWSSummData)

Call fnProcessAZVAT 'AZVAT data has a different structure, stored in arrSummDatas(1)
Call fnProcessWS    'WS data contains EB, WS and AZWS data, stored in arrSummDatas(2),(3) or (4) and is the reason I want to do this this way if possible.
'Do more stuff, output a summary, etc.
End Sub



Sub fnProcessAZVAT()
Dim SummArrayNo As Long
Dim D3size, D1, D2, D3, Value 
SummArrayNo = 1 'I want all data to go to arrAZVATSummData, for this sub

'...Code to determine 3rd dimension size
ReDim Preserve arrAZVATSummData(12, 3, D3Size) 'Can I do Redim Preserve arrSummDatas(SummArrayNo)(12, 3, D3size) here?
'I also think Preserve isn't necessary as no data has yet been passed to the array?

'...For Loop to process data, result:
   D1 = 2
   D2 = 1
   D3 = 3
   Value = 18.99

   Call AddToDataSummArray(SummArrayNo, D1, D2, D3, Value)
'Next item
End Sub

Sub fnProcessWS()
Dim SummArrayNo As Long
Dim D3Size, D1, D2, D3, Value 

'...Code to determine 3rd dimension size (same for all 3 child arrays)
ReDim Preserve arrEBSummData(12, 3, D3Size)
ReDim Preserve arrWSSummData(12, 3, D3Size)
ReDim Preserve arrAZWSSummData(12, 3, D3Size)

'...For Loop to process data, result:
   SummArrayNo = 2 'this value belongs in EB, determined by loop.
   D1 = 11
   D2 = 0
   D3 = 5
   Value = 29.99

   Call AddToDataSummArray(SummArrayNo, D1, D2, D3, Value)
'Next item
End Sub

Sub AddToDataSummArray(SummArrayNo As Long, D1, D2, D3, Value)

arrSummDatas(SummArrayNo)(D1, D2, D3) = arrSummDatas(SummArrayNo)(D1, D2, D3) + Value ' Currently throws subscript out of range error on 1st call.

End Sub