VBA Marray целых чисел

Dim intA() as integer
adriendums