Сгенерировать исходные массивы с помощью генератора случайных чисел, вычислить по ним результирующий массив

Sub pr()
    Dim i&, n&, a&(), b&(), c&(), sa$, sb$, sc$
    n = Val(InputBox("Ââåäèòå ðàçìåðíîñòü ìàññèâîâ"))
    ReDim a(1 To n)
    ReDim b(1 To n)
    ReDim c(1 To n)
    Randomize
    i = 1
    For Each x In a
       a(i) = Int(Rnd * 5) + 1
       sa = sa & a(i) & vbTab
       b(i) = Int(Rnd * 8) + 1
       sb = sb & b(i) & vbTab
       c(i) = a(i) * b(i)
       sc = sc & c(i) & vbTab
       i = i + 1
    Next
    MsgBox "Èñõîäíûå äàííûå" & vbCrLf _
        & "Ìàññèâ A: " & vbTab & sa & vbCrLf _
        & "Ìàññèâ B: " & vbTab & sb & vbCrLf _
        & "Ðàñ÷åò Ai * Bi = " & vbTab & sc
End Sub

Dim i
Dim n
dim n1
Dim a()
Dim b()
Dim c()
Dim sa
Dim sb
Dim sc
n1 = InputBox("Введите размерность массивов",,"5")
''n1 = "5"
n = clng(n1)
ReDim a(n)
ReDim b(n)
ReDim c(n)
Randomize
i = 1
do while i<=n
a(i) = Int(Rnd * 5) + 1
sa = sa & a(i) & vbTab
b(i) = Int(Rnd * 8) + 1
sb = sb & b(i) & vbTab
c(i) = a(i) * b(i)
sc = sc & c(i) & vbTab
i = i + 1
loop
MsgBox "Исходные данные" & vbCrLf _
& "Массив A: " & vbTab & sa & vbCrLf _
& "Массив B: " & vbTab & sb & vbCrLf _
& "Расчет Ai * Bi = " & vbTab & sc