Найти те элементы массива, которые делятся на 2 и не делятся на 3 - Ошибка в коде

Option Strict On
Option Explicit On
Public Class Form1
    Dim x(10), c() As Single
    'Ввод исходного массива с клавиатуры
    Sub vvod(ByRef a() As Single, ByVal L As ListBox)
        Dim i As Integer
        For i = 0 To UBound(a)
            a(i) = CSng(Val(InputBox("Введите" & i & "-й элемент")))
        Next i
    End Sub
 
    'Процедура отбора элементов массива, которые делятся на 2 и не делятся на 3
    Sub Sort(ByRef v() As Single, ByVal x() As Single)
        Dim i, c As Integer
        Dim m As Single
        c = 0
        For i = 0 To UBound(x)
            If (x(i) Mod 3 <> 0) And (x(i) Mod 2 = 0) Then
                m = x(i)
                v(c) = m
                c = c + 1
            End If
        Next i
        ReDim v(c)
    End Sub
    'Сумма элементов массива
    Sub summa(ByRef s As Single, ByVal v() As Single)
        Dim c As Integer
        s = 0
        For c = 0 To UBound(v)
            s = s + v(c)
        Next c
    End Sub
    'Процедура вывода массива
    Sub vivod(ByRef j() As Single, ByVal L As ListBox)
        Dim i As Integer
        Dim k As String = ""
        For i = 0 To UBound(j)
            k = k + Format(j(i), "0.000") + Space(4)
        Next i
        If k = "" Then k = "массив пуст"
        L.Items.Add(k)
    End Sub
    'Процедура  вывода суммы элементов полученного массива
    Sub vivod2(ByVal Z As Double, ByVal T As TextBox)
        T.Text = CStr(Z)
    End Sub
    'Кнопка "Вычислить"
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim c As Integer
        Dim x(10) As Single
        Dim v(c) As Single
        Dim s As Single
        vvod(x, ListBox1)
        Sort(x, v)
        vivod(v, ListBox2)
        summa(s, v)
        vivod2(s, TextBox1)[VB][/VB]
    End Sub
    'Кнопка "Завершить"
    Private Sub Button2_Click(ByVal sender As System.Object,
      ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub
End Class