'benötigt: listbox (lstShow);textbox (txtSearch)
Private Sub Form_Load()
    For i = 0 To 1000
        lstShow.AddItem i
    Next
End Sub
 
Private Sub txtSearch_Change()
    For i = 0 To lstShow.ListCount - 1
        If Left$(lstShow.List(i), Len(txtSearch.Text)) = txtSearch.Text Then _
          lstShow.ListIndex = i: Exit Sub
    Next
End Sub