Дана матрица А. Написать программу определения количества положительных и отрицательных элементов матрицы. Язык Visual Basic.

Private Sub Command1_Click()
Dim myArray(3,3) as Integer
Dim count_pos as Integer
Dim cout_neg as Integer
Dim i as Integer
Dim j as Integer
count pos = 0, count_neg = 0

 For i = 0 to 3
      For j = 0 to 3
If (myArray(i,j) gt; 0) Then
count_pos = count_pos+1
Else if (myArray(i,j) lt; 0) Then
count_neg = count_neg+1
Else
End If
Next j
Next i
MsgBox("Положительных чисел " amp; count_pos amp; " ,а отрицательных " amp; count_neg); 
EndSub