Определить число отрицательных элементов, расположенных перед наибольшим положительным элементом одномерного массива - VB

Sub Task()
Dim A, i As Integer, sStr As String, M As Integer
Dim iMax As Single, iInd As Integer, iSum As Integer
M = InputBox("ГђГ*çìåð Г¬Г*Г±Г±ГЁГўГ*:")
ReDim A(1 To M)
For i = 1 To M
    A(i) = Int(Rnd * 60 - 30)
    sStr = sStr & A(i) & "; "
    If A(i) > iMax Then iMax = A(i): iInd = i
Next
For i = 1 To iInd
    If A(i) < 0 Then iCnt = iCnt + 1
Next
MsgBox "Г‚ Г¬Г*Г±Г±ГЁГўГҐ: " & vbNewLine & sStr & vbNewLine & _
"ïåðåä Г*Г*èáîëüøèì ýëåìåГ*òîì " & A(iInd) & " Г°Г*ñïîëîæåГ*Г® " & iCnt & " îòðèöГ*òåëüГ*ûõ"
End Sub