Поиск в ListView по части строки

Try
            Dim N As Integer
            Dim FItem As ListViewItem = ListView1.FindItemWithText(TextBox1.Text, True, 0, True)
 
            If (FItem IsNot Nothing) Then
                ListView1.TopItem = FItem
                N = ListView1.Items.IndexOf(FItem)
                ListView1.Focus()
                ListView1.Items.Item(N).Selected = True
                ListView1.EnsureVisible(N)
            Else
                MsgBox("Совпадений не найдено!")
            End If
        Catch
        End Try

Imports System.Text.RegularExpressions
'.....
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
    Dim j As Integer = findWrd("Иван", ListView1)
    If j < 0 Then Exit Sub
    ListView1.Focus()
    ListView1.Items.Item(j).Selected = True
    ListView1.EnsureVisible(j)
End Sub
Private Function findWrd(ByVal sFind As String, ByVal lv As ListView) As Integer
    Dim lvc As New ListViewItemCollection(lv)
    Dim s As String
    Dim jj As Integer = -1
    For Each lvi As ListViewItem In lvc
        s = lvi.Text
        If Regex.IsMatch(s, sFind, RegexOptions.IgnoreCase) Then
            jj = lvc.IndexOf(lvi)
            Exit For  'до первого совпадения
        End If
    Next
    Return jj
End Function

Regex.IsMatch(s, sFind, RegexOptions.IgnoreCase)

sFind = Regex.Escape(sFind)

If s.IndexOf(sFind, StringComparison.OrdinalIgnoreCase) <> -1 Then