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

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

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

Option Explicit
 
Private Sub Комманда1_Click()
 Dim X() As Integer, M As Integer, N As Integer, i As Integer, j  As Integer, S As Integer, P As Integer
Cls
 Randomize
 M = Val(InputBox("Введите колличество строк", , 10))
 N = Val(InputBox("Введите колличество столбцов", , 10))
  ReDim X(1 To M, 1 To N)
 
 For i = 1 To M
        For j = 1 To N
        X(i, j) = Int(Rnd * 1000) - 500
        Print X(i, j);
        Next j
 Print
 Next i
 
 For i = 1 To M
 S = 0: P = 0
        For j = 1 To N
        If X(i, j) > 0 Then S = S + X(i, j) Else P = P + X(i, j)
        Next j
 Print S; P
 Next i
 End Sub