В одномерном массиве M(n) заменить отрицательные элементы их квадратами

Public Sub zad()
Dim a(3) As Integer
Dim i As Integer
Dim st As String
Dim st1 As String
st = ""
For i = 1 To 3
a(i) = InputBox("Введите массив")
st = st & a(i) & " "
Next i
st1 = ""
For i = 1 To 3
If a(i) < 0 Then
a(i) = a(i) ^ 2
st1 = st1 & a(i)
End If
Next i
Debug.Print "массив:" & st1
End Sub
P.S.  массив выводит, но не заменяет элементы на квадрат
Разработайте макрос с помощью которого в одномерном массиве B(n) можно найти сумму элементов, расположенных после минимального элемента.
Dim a(4) As Integer
Dim i As Integer
Dim st As String
st = ""
For i = 1 To 4
a(i) = InputBox("Введите массив")
st = st & a(i) & " "
Next i
  s = 0
  min = a(1)
  For i = 1 To 4
  If a(i) < min Then
  min = a(i)
  s = s + a(i + 1)
  End If
  Next i
Debug.Print "массив:" & st; "сумма:" & s

For i = 1 To 3
    If a(i) < 0 Then a(i) = a(i) ^ 2
    st1 = st1 & a(i) & " "
Next i

min = a(1)
For i = 2 To 4
    If a(i) < min Then
        min = a(i)
        s = 0
    Else
        s = s + a(i)
    End If
Next i