Подсчет заданных элементов в матрице - VB

Формулировка задачи:

Всем добрый день! На форуме впервые, не ругайтесь, если что не так. По информатике была задана задача: вычислить и вывести на экран количество отрицательных и нулевых элементов во всей заданной матрице М (3Х3) в каждой строке. Я, к сожалению, в этом почти ничего не смыслю - попытался создать код (ниже) но каждый раз выбивает ошибку. Прошу помочь, если не сложно, спасибо.

                    Листинг программы
                
 
                        
                          
                    
Sub V()
Dim M(1 To 3, 1 To 3) As Single
Dim i As Byte, j As Byte
Dim VV(1 To 3) As Single
Dim VV1(1 To 3) As Single
Dim S1, S2, S3, S4 As String
Dim K, C As Integer
 For i = 1 To 3
  S1 = " "
   For j = 1 To 3
    M(i, j) = InputBox("M(" & Str(i) & " , " & Str(j) & ") & ")
    S1 = S1 & Str(M(i, j)) & " "
   Next
    S2 = S2 & S1 & Chr(13)
 Next
 For i = 1 To 3
  For j = 1 To 3
   If M(i, j) < 0 Then
   K = K + 1
   VV(j) = K
   End If
  Next
   S3 = S3 & Str(VV(j)) & " "
 Next
 For i = 1 To 3
  For j = 1 To 3
   If M(i, j) = 0 Then
   C = C + 1
   VV1(j) = C
   End If
  Next
   S4 = S4 & Str(VV1(j)) & " "
 Next
 MsgBox "M:" & Chr(13) & S2 & Chr(13) & "K=" & S3 & Chr(9) & "C=" & S4
End Sub

Решение задачи: «Подсчет заданных элементов в матрице»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub main()
Dim M(1 To 3, 1 To 3) As Single
Dim i As Byte, j As Byte
'Dim VV(1 To 3) As Single
'Dim VV1(1 To 3) As Single
 
'Dim S1 As String, S2 As String, S3 As String, S4 As String
Dim S1 As String, S2 As String, S3 As String, S4 As String 'для каждой переменной указывайте тип во избежание проблем
 
'Dim K, C As Integer
Dim K As Integer, C As Integer 'для каждой переменной указывайте тип во избежание проблем
 For i = 1 To 3
  S1 = " "
   For j = 1 To 3
    M(i, j) = InputBox("M(" & Str(i) & " , " & Str(j) & ") & ")
    S1 = S1 & Str(M(i, j)) & " "
   Next
    S2 = S2 & S1 & Chr(13)
 Next
 For i = 1 To 3
  K = 0
  For j = 1 To 3
   If M(i, j) < 0 Then
   K = K + 1
'   VV(j) = K
   End If
  Next
'   S3 = S3 & Str(VV(j)) & " "
   S3 = S3 & K & " "
 Next
 For i = 1 To 3
  C = 0
  For j = 1 To 3
   If M(i, j) = 0 Then
   C = C + 1
'   VV1(j) = C
   End If
  Next
   S4 = S4 & C & " "
 Next
 MsgBox "M:" & Chr(13) & S2 & Chr(13) & "K(<0)=" & S3 & Chr(9) & "C(=0)=" & S4
End Sub