Function Einlesen(ByVal sFile As String)
Dim intFileNo As Integer
Dim strDeutsch As String
Dim strEnglisch As String
Dim lngPos As Long       ' das ist die Variable, die ich zum Speichern der 
' Position des "="-Zeichens verwende
Dim strInputLine As String
Dim strOldValue As String
 
strOldValue = ""
Form1.lDeutsch.Clear
Form1.lEnglisch.Clear
intFileNo = FreeFile
Open sFile For Input As intFileNo
While Not EOF(intFileNo)
  strDeutsch = "": strEnglisch = ""
  Line Input #intFileNo, strInputLine
  ' ...
  lngPos = InStr(strInputLine,"=") ' alternativ denkbar wäre das Teilen des 
  ' Strings mit der Funktion split()
  If lngPos > 0 Then
    If lngPos > 1 Then strDeutsch = Left$(strInputLine, lngPos - 1)
    If lngPos < Len(strInputLine) Then strEnglisch = Mid$(strInputLine, lngPos _
      + 1)
    ' Jetzt kommt die Prüfung auf doppelte Eintragung in lDeutsch
    If (strOldValue <> strDeutsch) And (strDeutsch <> "") Then
      Form1.lDeutsch.AddItem strDeutsch
      strOldValue = strDeutsch
    End If
    If strEnglisch <> "" Then Form1.lEnglisch.AddItem strEnglisch
  End If
Wend
Close intFileNo
End Function