Найти сумму всех четных элементов,расположенных ниже главной диагонали - VB

CLS
RANDOMIZE TIMER
DIM x(4, 4) AS LONG
 
FOR i = 1 TO 4
FOR j = 1 TO 4
   x(i, j) = 18 * RND - 9
   PRINT x(i, j);
NEXT: PRINT
NEXT: PRINT
 
FOR i = 1 TO 4
FOR j = 1 TO i - 1
   IF x(i, j) MOD 2 = 0 THEN
      S = S + x(i, j)
      k = k + 1
   END IF
NEXT j, i
 
IF k THEN
   PRINT "SUMMA ="; S
ELSE
   PRINT "Чётных элементов нет"
END IF