Subscript out of range - VBA (48433)

Option Base 1
Sub prim4()
 
Dim x(10) As Integer, y(10) As Integer
Dim sxo1, syo1 As Integer, sxp2, syp2 As Integer
Dim s As String
s = ""
sxo1 = 0
sxp2 = 0
syo1 = 0
syp2 = 0
 
     Заполнение массива 1
    For i = 1 To 10
        x(i) = (Rnd * 9)
        If x(i) < 0 Then sxo1 = sxo1 + 1 Else sxp2 = sxp2 + 1
    Next
    
    Заполнение массива 2
    For i = 1 To 10
        y(i) = (Rnd * 9)
        If y(i) < 0 Then syo1 = syo1 + 1 Else syp2 = syp2 + 1
    Next
    
    s = ""
    If sxo1 > syp2 Then
        For i = 1 To 10
            If x(i) < 0 Then i = i * (-1) - ОШИБКА ВОТ ТУТ, НО КАК РЕШИТЬ ЕЕ Я НЕ ЗНАЮ...
            s = s & x(i) & " "
        Next
    MsgBox s
    Else
        For i = 1 To 10
            If y(i) > 0 Then i = i * (-1)
            s = s & x(i) & " "
        Next
    MsgBox s
    End If
 
End Sub