В строке найти чётные слова, в которых нет удвоенной буквы "и" и вывести эти слова в новую строку

Option Explicit On
Option Strict On
Imports System.Math
Public Class Form1
    'Функция ввода исходных данных из  TextBox
    Function vvod(ByVal T As TextBox) As String
        Return T.Text
    End Function
    'Процедура  вывода результата в TextBox
    Sub vivod(ByVal z As String, ByRef t As TextBox)
        If z.Length <> 0 Then
            t.Text = z
        Else
            t.Text = "Нет слов!"
        End If
 
    End Sub
    Sub probel(ByVal s As String)
        s = s.Trim
        Do While s.IndexOf(Space(2)) >= 0
            s = s.Replace(Space(2), Space(1))
        Loop
    End Sub
    Sub resh(ByRef rez As String, ByVal s As String)
        rez = ""
        Dim i, j, k, t As Integer
        Dim slovo As String
        probel(s)
        Dim a() As String = Split(s, Space(1))
        k = 0
        For i = 0 To a.Length - 1
            slovo = a(i)
            t = slovo.Length
            If t Mod 2 = 0 Then
                For j = 0 To t - 1
                    If slovo.Substring(j, 1) = "и" Then
                        k = k + 1
                    End If
                Next j
                If k <> 2 Then
                    rez = rez + Space(1) + slovo
                Else
                    rez = rez
                End If
            End If
        Next i
        If rez = "" Then
            rez = " Нет таких слов!"
        End If
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim s As String
        Dim rez As String
        s = vvod(TextBox1)
        resh(rez, s)
        vivod(rez, TextBox2)
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub
End Class

 Dim Spliter() As String = TextBox1.Text.Split(" ")
        Dim Sym() As String = {".", ",", ":", ";", "!", "?", """", "'", "-", "_", "/", "+", "*", "(", ")", "\", "|"}
        ListBox1.Items.Clear()
        For I = 0 To Spliter.Length - 1
            If Not Spliter(I).Contains("ии") And Not Spliter(I).Contains("Ии") And Not Spliter(I).Contains("ИИ") And Not Spliter(I).Contains("иИ") Then
                For N = 0 To Sym.Length - 1
                    Spliter(I) = Replace(Spliter(I), Sym(N), "")
                Next
                If Spliter(I).Length Mod 2 = 0 Then
                    ListBox1.Items.Add(Spliter(I))
                End If
            End If
        Next

Option Explicit On
Option Strict On
Imports System.Math
Public Class Form1
    Sub vivod(ByRef Z As Integer, ByRef D As TextBox)
        D.Text = CStr(Z)
    End Sub
    Sub vvodmatr(ByRef C(,) As Integer)
        Dim m, n, i, j As Integer
        m = C.GetLength(0) - 1
        n = C.GetLength(1) - 1
        For i = 0 To m
            For j = 0 To n
                C(i, j) = CInt(Rnd(1) * 7)
            Next j
        Next i
    End Sub
    Sub vivodlist(ByRef C(,) As Integer, ByRef LB As ListBox)
        Dim m, n, i, j As Integer
        Dim z As String
        m = C.GetLength(0) - 1
        n = C.GetLength(1) - 1
        LB.Items.Clear()
        For i = 0 To m
            z = ""
            For j = 0 To n
                z = z & C(i, j) & Space(2)
            Next j
            LB.Items.Add(z)
        Next i
    End Sub
    Function resh1(ByVal i As Integer, ByVal n As Integer, ByVal C(,) As Integer) As Integer
        Dim j, nom As Integer
        Dim min As Integer
        n = C.GetLength(1) - 1
        min = C(i, 0)
        nom = 0
        For j = 0 To n
            If C(i, j) < min Then
                min = C(i, j)
                nom = j
            End If
        Next
        Return nom
    End Function
    Sub resh2(ByVal m As Integer, ByVal n As Integer, ByVal C(,) As Integer, ByRef p As Integer)
        Dim i, t As Integer
        m = C.GetLength(0) - 1
        p = 1
        For i = 0 To m
            t = resh1(i, n, C)
            p = p * t
        Next
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim C(6, 10), m, n, p As Integer
        vvodmatr(C)
        vivodlist(C, ListBox1)
        resh2(m, n, C, p)
        vivod(p, TextBox1)
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub
End Class