Выяснить в какой строке матрицы последовательность является возрастающей или убывающей - VB

CLS
RANDOMIZE TIMER
 
n = 8
m = 4
  
REDIM x(n, m) AS LONG
REDIM s(n) AS LONG
 
FOR i = 1 TO n
FOR j = 1 TO m
   x(i, j) = 18 * RND - 9
   PRINT x(i, j);
NEXT: PRINT
NEXT: PRINT
 
FOR i = 1 TO n
FOR j = 1 TO m - 1
   IF x(i, j) < x(i, j + 1) THEN
      s(i) = s(i) + 1
   ELSEIF x(i, j) > x(i, j + 1) THEN
      s(i) = s(i) - 1
   END IF
NEXT j, i
 
FOR i = 1 TO n
   IF s(i) = m - 1 THEN PRINT "Строка"; i; "Возрастающая"
   IF s(i) = 1 - m THEN PRINT "Строка"; i; "Убывающая"
NEXT