Função de busca

Bom dia pessoal.

Estou fazendo um programa no vb6 em que o usuario digita em um textbox(txtBusca) e o listview vai selecionando conforme

vai encontrando o que ele digitou.

Ex: O usuario digitou Ação.

E no ListView existem várias palavras como :

1-Obrigação

2-Atração

3-Ação

Estou usando a função InStr() para fazer essa busca, o único problema é que ela não começa a buscar pelo inicio da palavra ou frase, e sim na palavra toda, ou seja, assim que ele escreveu "Ação" automaticamente o ListView selecionou "1-Obrigação" e não "3-Ação".

Teria alguma forma de eu fazer com que a busca inicie no começo ?

Private Sub txtBusca_Change()
Dim i As Integer
If Len(Trim(txtBusca.Text)) = 0 Then
lstBusca.Visible = False
txtCodPro = ""
Else
lstBusca.Visible = True
For i = 1 To lstBusca.ListItems.count

If InStr(1, (lstBusca.ListItems(i).ListSubItems(1).Text), (LCase(txtBusca))) Then
lstBusca.ListItems(i).EnsureVisible
lstBusca.ListItems(i).Selected = True
Exit For
End If
Next i

End If
End Sub