Private Sub Text1_Change()
 
Dim i&, Txt$
 
Txt = UCase(Text1.Text) & "*"
With List1
  For i = 0 To .ListCount - 1
    If UCase(.List(i)) Like Txt Then
      .ListIndex = i
      Exit For
    End If
  Next i
End With
 
End Sub

Gruss,

Zardoz