Решение масивов Visual Basic - VB

Sub Task()
Dim X(1 To 15) As Integer, i As Integer, sStr As String
Dim iIndFirst As Integer, iIndLast As Integer
iIndFirst = 15: iIndLast = 1
For i = 1 To 15
    X(i) = Int(Rnd * 99 - 50)
    sStr = sStr & X(i) & ", "
    If X(i) < 0 Then
        If i < iIndFirst Then iIndFirst = i
        If i > iIndLast Then iIndLast = i
    End If
Next
MsgBox sStr & vbNewLine & vbNewLine & "   Ïåðâûé îòðèöГ*òåëüГ*ûé В№ " & _
iIndFirst & vbNewLine & "   ÏîñëåäГ*ГЁГ© îòðèöГ*òåëüГ*ûé В№ " & iIndLast
End Sub