Find Text from Userform TextBox

[Rex2024]

I have a textbox on a userform which a macro populates a text string from another data source.

I want the user to be able to search in that textbox for a phrase of their choice. I'm fine with either centering the scroll on the text or bolding/underlining the specific phrases, but am struggling to do it.

This code supposedly works in worksheets, but how can I modify it to work in a userform textbox?

   Dim shp As Shape
    Dim sFind As String
    Dim sTemp As String
    Dim iPos As Integer
    Dim Response

    sFind = InputBox("Search for?")
    If Trim(sFind) = "" Then
        MsgBox "Nothing entered"
        Exit Sub
    End If
    sFind = LCase(sFind)
    For Each shp In ActiveSheet.Shapes
        sTemp = LCase(shp.TextFrame2.TextRange.Characters.Text)
        iPos = InStr(sTemp, sFind)
        If iPos > 0 Then
            With shp.TextFrame2.TextRange.Characters(Start:=iPos, _
              Length:=Len(sFind)).Font
                .UnderlineStyle = msoUnderlineHeavyLine
                .Bold = True
            End With
        End If
    Next
    MsgBox "Finished"

 

[Rex2024]

I've tried this code as well and it doesn't seem to be working.

Private Sub SearchButton_Click()

    Dim searchText As String
    searchText = Me.Search.Value
   
    If Len(searchText) = 0 Then
        MsgBox "Enter a search term, and try again!", vbExclamation
        Exit Sub
    End If
   
    Dim itm As ListSubItem
    Dim i As Long
    Dim j As Long
    With Me.ListView1
        For i = 1 To .ListItems.Count
            With .ListItems(i)
                For j = 1 To .ListSubItems.Count
                    If LCase(.ListSubItems(j)) Like "*" & LCase(searchText) & "*" Then
                        Debug.Print .Text, .ListSubItems(j)
                        Exit For
                    End If
                Next j
            End With
        Next i
    End With

End Sub