помогите, пожалуйста! Никак не получается программирование VBA

Сформировать на основе данных исходного массива А два массива В и С. В массиве В упорядочить данные по возрастанию, а в массиве С по убыванию. Вывести значения исходного массива в строку, а результирующих массивов В и С в два рядом стоящих столбца

Public Sub Odn_mas()
Range("A1:AA1000").Clear
'îïðåäåëåíèå ìàññèâà
n = Val(InputBox("ââåäèòå ðàçìåðíîñòü n", "ââîä äàííûõ"))
ReDim A(n): ReDim B(n): ReDim C(n)
'ðàáîòà ñ ìàññèâîì
Call Vvod_odn_mas(A, n, "A")
Call Vivod_odn_mas(A, n, "A", 1, 1)
'îáðàáîòêà ìàññèâà
For i = 1 To n - 1
For j = i + 1 To n
If A(j) < A(i) Then T = A(j): A(j) = A(i): A(i) = T

Next j
B(i) = T
Next i

Call Vivod_odn_mas(B, n, "B", m + 11, 1)
For i = 1 To n - 1
For j = i + 1 To n
If A(j) > A(i) Then R = A(j): A(j) = A(i): A(i) = R

Next j
C(i) = R
Next i

Call Vivod_odn_mas(C, n, "C", m + 16, 1)

End Sub