Dim x As Int32
        Dim dateiname As String
        Dim dateinummer As Int16
        Dim gesamt As String
 
        dateinummer = FreeFile()
        dateiname = "Speicherdatei.txt"
 
        For x = 0 To ListBox1.Items.Count - 1 'index der Listbox fängt bei null 
        ' an
            gesamt = gesamt & ListBox1.Items.Item(x) & Chr(13) & Chr(10) 'fügt 
            ' das xte element der Listbox1 gesamt zu
            gesamt = gesamt & ListBox2.Items.Item(x) & Chr(13) & Chr(10) ' fügt 
            ' das xte element der Listbox2 gesamt zu
        Next 'funktioniert nur, wenn du für jedes Wort eine Übersetzung hast. 
        ' sonst Fehlermeldung
 
        FileOpen(dateinummer, dateiname, OpenMode.Output)
        Print(dateinummer, gesamt)
        FileClose(dateinummer)

Dim x As Int32
        Dim dateiname As String
        Dim dateinummer As Int16
        Dim Deutsch As String
        Dim Englisch As String
        Dim Fragment As String
        Dim Gfragment As String
 
        dateinummer = FreeFile()
        dateiname = "Speicherdatei.txt"
 
        FileOpen(dateinummer, dateiname, OpenMode.Input)
        Do Until EOF(dateinummer) 'er arbeitet bis die Datei zuende ist
            Deutsch &= LineInput(dateinummer) & "|" 'er fügt die nächste Zeile 
            ' in die Variable ein
            Englisch &= LineInput(dateinummer) & "|"
        Loop
        FileClose(dateinummer)
 
        Deutsch = " " & Deutsch ' notbehelf für den ersten Buchstaben
        Englisch = " " & Englisch
 
        Do Until x = Len(Deutsch) - 1 ' Schleife bis alle Zeichen ausgelesen 
        ' sind
            x += 1
            Fragment = Deutsch.Substring(x, 1) 'jedes Zeichen wird 
            ' einzelnausgelesen
 
            If Fragment = "|" = False Then ' wenn der Balken net dabei ist,
                Gfragment = Gfragment & Fragment ' wird das ganze wieder 
                ' zusammengesetzt
            ElseIf Fragment = "|" Then 'wenn der Balken dabei ist,
                ListBox1.Items.Add(Gfragment) ' wird er nciht hinzugefügt und 
                ' das andere kommt in die Textbox
                Gfragment = ""
            End If
        Loop
 
        x = 0 ' wir wollen ja eine andere Variable auslesen...
 
        Do Until x = Len(Englisch) - 1 ' hier nochmal das ganze mit englisch 
        ' und der anderen Textbox
            x += 1
            Fragment = Englisch.Substring(x, 1)
 
            If Fragment = "|" = False Then
                Gfragment = Gfragment & Fragment
            ElseIf Fragment = "|" Then
                ListBox2.Items.Add(Gfragment)
                Gfragment = ""
            End If
        Loop

__________________________________
irgendwas wird schon rauskommen^^