Localizar item em List Box

óla galera, eu sou novato nisto de programar. estou a tentar fazer um aplicatico em VB NET mas estou com algumas difuculdades, assim recorro a vossa ajuda.

Estou a tentar criar uma text box que localiza um item em uma listbox e com alguma pesquisa cheguei a este código:

CODE

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

'Dar a posiçao na lista

Dim i As Integer = ListBox1.FindString(TextBox1.Text)

'Seleccionar o que é parecido

ListBox1.SelectedIndex = i

End Sub

mas ha um problema quando o eu digito o nome de algum item que não esta nessa listbox o aplicativo da erro e eu tenho de sair dele e tornar a abrir.

Alguem me podia dizer como eu crio um sistema de localizar itens em listbox.

Obrigado