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

Private Sub Command1_Click()
Dim X(1 To 100, 1 To 100), M, N, i, j, S, P As Single
Dim Xпол, Xотр As Single
Randomize
M = Val(InputBox("Введите M"))
N = Val(InputBox("Введите N"))
For j = 1 To M
For i = 1 To N
X(i, j) = Val(InputBox("Введите число", "Заполнение массива"))
Print X(i, j);
Next i
Print
Next j
For S = 1 To N
For P = 1 To M
Xотр = 0: Xпол = 0
If X(i, j) > 0 Then Xпол = Xпол(S) + X(i, j)
If X(i, j) < 0 Then Xотр = Xотр(S) + X(i, j)
Print Xпол; Xотр
NextP
NextS
End Sub