Private Sub Form_Load()
Dim Text As String
Dim Nr As Integer
Dim Zeile() As String
Dim N As Long
 
Nr = FreeFile
 
Open "D:\Deu.txt" For Binary As Nr
Text = Space(LOF(Nr))
Get Nr, , Text
Close Nr
 
Zeile = Split(Text, vbCrLf)
 
For N = 0 To UBound(Zeile)
 List1.AddItem Mid(Zeile(N), 1, InStr(1, Zeile(N), "=") - 1)
Next
 
End Sub
 
Private Sub Text1_Change()
Dim N As Long
 
For N = 0 To List1.ListCount - 1
 If LCase(List1.List(N)) Like LCase(Text1.Text) + "*" Then
   List1.Selected(N) = True
   Exit For
 End If
Next
 
End Sub