Function Einlesen(ByVal sFile As String)
On Error GoTo Fehler
  Dim No As Integer
  Dim sLine As String
  Dim deutsch As String
  Dim englisch As String
  Dim iProz As Integer
  Dim i As Integer
 Dim sSearchFor As String
 No = FreeFile
  Form1.lEnglisch.Clear
  Form1.lDeutsch.Clear
  Open sFile For Input As #No
 
  Do Until EOF(No)
    Line Input #No, sLine
      If InStr(1, sLine, "=") > 0 Then
         If Left(sLine, InStr(1, sLine, "=") - 1) <> "" And Mid(sLine, InStr( _
           1, sLine, "=", vbBinaryCompare) + 1) <> "" Then
            deutsch = Trim((Left(sLine, InStr(1, sLine, "=") - 1)))
            englisch = Trim(Mid(sLine, InStr(1, sLine, "=", vbBinaryCompare) + _
              1))
 
sSearchFor = deutsch
            sSearchFor = deutsch
            For i = 0 To Form1.lDeutsch.ListCount - 2
                If Not LCase(Form1.lDeutsch.List(i)) Like sSearchFor Then
                MsgBox "ungleich"
                Form1.lDeutsch.AddItem deutsch
                Form1.lEnglisch.AddItem englisch
                Form1.List1.AddItem Trim(sLine)
                Exit For
              Else
              MsgBox "gleich"
             Form1.lEnglisch.AddItem englisch
             Form1.List1.AddItem Trim(sLine)
                Exit For
                End If
            Next i         
      End If
    End If
  Loop
  Close No
  Einlesen = True
  Form1.Show
Unload Me
  Exit Function
Fehler:
  Reset
End Function