Ошибка, Границы массивов не могут присутствовать в спецификаторах типов

Option Explicit On
Public Class Form1
 
    Sub vivod(ByVal Z As Single, ByVal T As TextBox)
 
        T.Text = CStr(Z)
 
    End Sub
 
    Function MyFunc(ByVal kol As Integer, ByVal sum As Integer, ByVal m(i) As Integer) As Integer
        Dim i As Integer, j As Integer, k() As Integer
        ReDim k(0 To kol)
        For i = 0 To 10
            If m(i) Mod 2 = 0 And m(i) Mod 3 <> 0 Then 'поиск элементов массива,которые делятся на 2 и не делятся на 3. 
                j = j + 1
                k(j) = m(i)
                sum = sum + k(j)
                TextBox4.Text = TextBox4.Text & " " & CStr(k(j))
            End If
        Next i
        vivod(kol, TextBox2) 'Вывод количества элементов массива,которые делятся на 2 и не делятся на 3. 
        vivod(sum, TextBox3) 'Вывод суммы элементов массива, которые делятся на 2 и не делятся на 3. 
    End Function
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer, j As Integer
        Dim kol As Integer = 0
        Dim sum As Integer = 0
        Dim k() As Integer
        Dim m(10) As Object
 
        For i = 0 To 10 'Цикл ввода массива через InputBox и ввода массива в TextBox1
            m(i) = InputBox("Введите число массива №(" & i & ")")
            TextBox1.Text = TextBox1.Text & " " & CStr(m(i))
        Next
 
        For i = 0 To 10 ' Цикл определяющий количество элементов нового массива
            If m(i) Mod 2 = 0 And m(i) Mod 3 <> 0 Then '
                kol = kol + 1
            End If
        Next i
 
        MyFunc(kol, sum, m(i))
    End Sub
 
    Private Sub Zavershit(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        End
    End Sub
 
End Class

 Function MyFunc(ByVal kol As Integer, ByVal sum As Integer, ByRef m() As Integer) As Integer

 MyFunc(kol, sum, m)

Sub koli4(ByRef m() As Integer, ByVal kol As Integer)
        For i = 0 To 10 ' Цикл определяющий количество элементов нового массива
            If m(i) Mod 2 = 0 And m(i) Mod 3 <> 0 Then '
                kol = kol + 1
            End If
        Next i
    End Sub
....
koli4(m, kol)

 Sub koli4(ByRef m() As Integer, ByVal kol As Integer)
        For i = 0 To 10 ' Цикл определяющий количество элементов нового массива
            If m(i) Mod 2 = 0 And m(i) Mod 3 <> 0 Then '
                kol = kol + 1
            End If
        Next i
        vivod(kol, TextBox2)
    End Sub
......
Private Sub Button1_Click()
 
For i = 0 To 10 'Цикл ввода массива через InputBox и ввода массива в TextBox1
            m(i) = InputBox("Введите число массива №(" & i & ")")
            TextBox1.Text = TextBox1.Text & " " & CStr(m(i))
        Next
 
 koli4(m, kol)
 MyFunc(kol, sum, m)
End Sub