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

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

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 _text As String = "В строке найти чётные слова, в которых нет удвоенной буквы " & Chr(34) & "и" & Chr(34) & " и вывести эти слова в новую строку"
        Dim _split() As String = _text.Split(" ")
        For Each words In _split
            If words.Length Mod 2 = 0 Then
                If Not words.Contains("ии") Then
                    MsgBox(words)
                End If
            End If
        Next

 Dim _text As String = "ири пр ирни иипр"
        Dim _split() As String = _text.Split(" ")
        For Each words In _split
            If words.Length Mod 2 = 0 Then
                If Not words.Contains("ии") Then
                    MsgBox(words)
                End If
            End If
        Next

        Dim Spliter() As String = TextBox1.Text.Split(" ")
        ListBox1.Items.Clear()
        For I = 1 To Spliter.Length - 1 Step 2
            If Not Spliter(I).Contains("ии") Then
                ListBox1.Items.Add(Spliter(I))
            End If
        Next

        Dim Spliter() As String = TextBox1.Text.Split(" ")
        Dim Sym() As String = {".", ",", ":", ";", "!", "?", """", "'", "-", "_", "/", "+", "*", "(", ")", "\", "|"}
        ListBox1.Items.Clear()
        For I = 1 To Spliter.Length - 1 Step 2
            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
                ListBox1.Items.Add(Spliter(I))
            End If
        Next