Вычислить сумму элементов массива, расположенных между первым и последним положительными элементами - VB

Private Sub Command1_Click()
Form1.Cls
Dim a%(20), mi%, ma%, b%(), s%
'formiruem
Print "Г*Г*Г·Г*ëüГ*ûé Г¬Г*Г±Г±ГЁГў"
For i = 1 To 20
 a(i) = Rnd(1) * 30 - 15
 Print a(i);
Next i
Print
'ishem min  max element
For i = 1 To 20
 If a(i) > 0 Then ma = i
Next i
For i = 20 To 1 Step -1
 If a(i) > 0 Then mi = i
Next i
'shitaem summu
s = 0
For i = mi + 1 To ma - 1
 s = s + a(i)
Next i
Print "ñóììГ* = "; s
'formiruem massiv
Print "ГЄГ®Г*ГҐГ·Г*ûé Г¬Г*Г±Г±ГЁГў"
ReDim b(ma - mi - 1)
For i = mi + 1 To ma - 1
 b(i - mi) = a(i)
 Print b(i - mi);
Next i
Print
End Sub