Устранить ошибку в коде. Массивы

 Dim x() As Single, y() As Single, Msg As String, D As Single, Y1() As Single, X1() As Single
 
        Dim i, j As Integer, n As Integer, K As Single, B As Single, Sigma As Single
        Dim s
        Dim SY As Single, SX As Single, SXY As Single, SQX As Single, YSR As Single
        n = InputBox("Vvedite N")
        ReDim x(n), y(n), Y1(n), X1(n)
        SX = 0: SY = 0: SQX = 0: SXY = 0: YSR = 0
        
        For i = 1 To n
          
            x(i) = InputBox("Введите X")
            y(i) = InputBox("Введите Y")
            
            SX = SX + x(i)
            SY = SY + y(i)
             SQX = SQX + x(i) * x(i)
             SXY = SXY + x(i) * y(i)
        Next i
 
        K = (SX * SY - n * SXY) / (SX * SX - n * SQX)
        B = (SY - K * SX) / n
 
        YSR = SY / n: D = 0
        For i = 1 To n
            D = D + (YSR - y(i)) * (YSR - y(i))
        Next i
 
 
        Sigma = Sqr(D / (n - 1))
        
        For j = 1 To n
        Y1(j) = K * X1(j) + B
        Next j

For j = 1 To n
Y1(j) = K * X1(j) + B
Next j

For i = 0 To n - 1
x(i) = InputBox("Ââåäèòå X")
y(i) = InputBox("Ââåäèòå Y") 
SX = SX + x(i)
SY = SY + y(i) 
SQX = SQX + x(i) * x(i)
SXY = SXY + x(i) * y(i)
Label1.Caption = SQX
'Если здесь остановить цикл, то все массивы будут принимать значения. Что с ним не так, можете что то посоветовать?
Next i

Label1.Caption = SQX

For i = 0 To n - 1
x(i) = InputBox("Ââåäèòå X")
y(i) = InputBox("Ââåäèòå Y") 
SX = SX + x(i)
SY = SY + y(i) 
SQX = SQX + x(i) * x(i)
SXY = SXY + x(i) * y(i)
'Проблема начинается на втором круге.
Next i