Как переделать код VB6 под VBA?

Формулировка задачи:

Здравствуйте! Прошу помощи. Если есть типовой короткий рабочий код для Visual Basic 6.0, то как его переделать под VBA (Excel).

                    Листинг программы
                
 
                        
                          
                    
Option Explicit
Private Sub Form_Activate()
Dim A(7, 8) As Single
Dim S(8) As Single
Dim i%, j%, N(8) As Integer
Randomize Timer
For i = 1 To 7
For j = 1 To 8
   A(i, j) = 11 * Rnd - 5.5
   Print Format(A(i, j), "0.000");
Next: Print
Next: Print
 
For j = 1 To 8
For i = 1 To 7
   If A(i, j) > 0 Then
      S(j) = S(j) + A(i, j)
      N(j) = N(j) + 1
   End If
Next i, j
 
For j = 1 To 8
   Print Format(S(j), "0.000");
Next
Print
 
For j = 1 To 8
   Print N(j);
Next
End Sub

Условия. Заполнить блок ячеек (7*8) случайными числами из диапазона [-5.5;5.5]. Для каждого столбца матрицы определить сумму и число положительных элементов. Ячейки, содержащие сумму - вывести полужирным курсивом, количество - красным цветом шрифта.

Пробовал самостоятельно, но Эксель замучил меня предупреждениями: "Run-time error ‘9’. Subscript out of range" (Ошибка выполнения '9'. Индекс вне диапазона). Привожу начало кода для VBA, где проходит гладко.

                    Листинг программы
                
 
                        
                          
                    
Sub Echs5()
Dim i%, j%, n%, m%, k%, A()
Dim S(8) As Single, Q(8) As Single, B() As Single
Cells.Clear
 
n = Int(InputBox("Введите количество строк", "Ввод данных", 7))
m = Int(InputBox("Введите количество столцов", "Ввод данных", 8))
 
ReDim A(1 To 7, 1 To 8)
Randomize Timer
For i = 1 To n
  For j = 1 To m
   Cells(i, j) = Round((11 * Rnd) + (-5.5), 3)
  Next j
Next i
End Sub

Решение задачи: «Как переделать код VB6 под VBA?»

textual
                            Листинг программы 
                        
 
                            
                        
Sub Pudge1488()
    Dim a(), b()
    Dim i&, j&, n&
    Dim m1#, m2#, m3#, m4#, m5#, m6#, m7#, m8#, m9#, m10#
'--------------------
    ActiveSheet.UsedRange.EntireRow.Delete
    
    'вводим данные
    On Error Resume Next
    n = Int(InputBox("Введите порядок матрицы", "Ввод данных", 10))
    If Err Then
        Err.Clear
        MsgBox "Введите целое число от 1 до 10", vbInformation
        Exit Sub
    End If
    
    'наполняем массив случайными числами от 1 до 20
    ReDim a(1 To n, 1 To n)
    Randomize
    For i = 1 To n
        For j = 1 To n
            a(i, j) = (20 * Rnd) + 1
        Next
    Next
    Cells(1, 1).Resize(n, n) = a
    
    'находим максимум по каждой строке и возводим его в квадрат
    m1 = a(1, 1): m2 = a(2, 1): m3 = a(3, 1): m4 = a(4, 1): m5 = a(5, 1)
    m6 = a(6, 1): m7 = a(7, 1): m8 = a(8, 1): m9 = a(9, 1): m10 = a(10, 1)
    For i = 1 To n
        For j = 1 To n
        If a(1, j) > m1 Then m1 = (a(1, j)) ^ 2
        If a(2, j) > m2 Then m2 = (a(2, j)) ^ 2
        If a(3, j) > m3 Then m3 = (a(3, j)) ^ 2
        If a(4, j) > m4 Then m4 = (a(4, j)) ^ 2
        If a(5, j) > m5 Then m5 = (a(5, j)) ^ 2
        If a(6, j) > m6 Then m6 = (a(6, j)) ^ 2
        If a(7, j) > m7 Then m7 = (a(7, j)) ^ 2
        If a(8, j) > m8 Then m8 = (a(8, j)) ^ 2
        If a(9, j) > m9 Then m9 = (a(9, j)) ^ 2
        If a(10, j) > m10 Then m10 = (a(10, j)) ^ 2
        Next
     Next
    Cells(1, n + 2) = m1
    Cells(2, n + 2) = m2
    Cells(3, n + 2) = m3
    Cells(4, n + 2) = m4
    Cells(5, n + 2) = m5
    Cells(6, n + 2) = m6
    Cells(7, n + 2) = m7
    Cells(8, n + 2) = m8
    Cells(9, n + 2) = m9
    Cells(10, n + 2) = m10
    
End Sub