Надо найти сумму массива, вот мой код, ошибка начинается c 3 цикла, что я делал не так? Язык программирования — VBA

Надо найти сумму массива,вот мой код,ошибка начинается c 3 цикла,что я делал не так? Язык программирования - VBA
Option Explicit
Option Base 1
Dim b() As Integer ' объявляем массив
Dim l As String ' возвращает значение
Public a, c, i, m, s As Integer
Public Sub aaa()
m = InputBox("введите размерность массива b m= ")
ReDim b(m)

For i = 1 To m
b(i) = InputBox("Введите b(" & i & " )=")
MsgBox ("Введите b(" & i & " )=" & b(i))
Next i

l = " b(" & m & ")=" 'процесс возврата

For i = 1 To m
l = l & " " & b(i)
Next i
MsgBox (l)

For s = 1 To m
s = s + b(i)
Next s
MsgBox (s)
End Sub

  • Что бы найти сумму всех элементов массива надо сделать так

    For i = 1 To m
    s = s + b(i)
    Next i
    MsgBox ("Сумма всех элементов: " & s)