[VB6] Cercare un elemento in una ListView in base a valore dei SubItems

[vr-claudio]

Ciao ragazzi,
un'informazione, ho trovato sul web questo codice che serve per cercare in una listview
tramite una textbox:

Dim strMatch As String
    Dim i As Long
    
    strMatch = LCase$(TXT_TROVA.Text)
    With LsVw1
        If Len(strMatch) <> 0 Then
            For i = 1 To LsVw1.ListItems.Count
                If Left$(LCase$(.ListItems(i).Text), Len(strMatch)) = strMatch Then
                    .ListItems(i).ForeColor = vbWhite
                Else
                    .ListItems(i).ForeColor = vbBlack
                End If
            Next
        Else
            For i = 1 To LsVw1.ListItems.Count
                .ListItems(i).ForeColor = vbBlack
            Next
        End If
    End With

e fin qui tutto bene, ma serve per cercare solo nella prima colonna della listiew,
ma se io volessi cercare i dati ad esempio nella seconda colonna come posso fare?

Grazie mille
vr-claudio