Private Sub cmdSave_Click()
 
    Call SaveVocabels("C:\Voc.txt", lvwVocabels)
 
End Sub
 
Private Sub Form_Load()
 
    lvwVocabels.ColumnHeaders.Add , , "German"
    lvwVocabels.ColumnHeaders.Add , , "English"
 
    lvwVocabels.View = lvwReport
 
    Call LoadVocabels("C:\Voc.txt", lvwVocabels)
 
End Sub
 
Private Sub LoadVocabels(sFile As String, lvw As ListView)
 
    Dim F As Integer
    Dim sInput As String
 
    F = FreeFile
    Open sFile For Binary As #F
        sInput = Space(LOF(F))
        Get #F, , sInput
    Close #F
 
    Dim sLines() As String
        sLines = Split(sInput, vbCrLf)
 
    Dim i As Integer
        lvw.ListItems.Clear
        For i = 0 To UBound(sLines)
            Dim j As Integer
            Dim sLanguages() As String
                sLanguages = Split(sLines(i), ",")
                For j = 0 To UBound(sLanguages)
                    If j = 0 Then lvw.ListItems.Add i + 1, , sLanguages(j) Else _
                    lvw.ListItems(i + 1).ListSubItems.Add j, , sLanguages(j)
                Next j
        Next i
 
End Sub
 
Private Sub SaveVocabels(sFile As String, lvw As ListView)
 
    Dim i As Integer
    Dim sToSave As String
 
        For i = 1 To lvw.ListItems.Count
            Dim j As Integer
            For j = 0 To lvw.ListItems(i).ListSubItems.Count
                If j = 0 Then sToSave = sToSave & lvw.ListItems(i).Text Else _
                sToSave = sToSave + lvw.ListItems(i).SubItems(j)
                If Not j = lvw.ListItems(i).ListSubItems.Count Then sToSave = _
                  sToSave + ","
            Next j
            If Not i = lvw.ListItems.Count Then sToSave = sToSave + vbCrLf
        Next i
 
    Dim F As Integer
        F = FreeFile
 
        Open sFile For Output As #F
            Print #F, sToSave
        Close #F
 
End Sub

Mit freundlichen Gr??en,
Andy G.