Option Explicit
 
Private Sub Command1_Click()
    Dim pos As Long
    Dim ff As Long
    Dim i As Long
    Dim s1 As String
    Dim s2 As String
 
    ff = FreeFile
    Open App.Path + "\Datei.txt" For Input As #ff
    Do While Not EOF(ff)
        Input #ff, s1
        Input #ff, s2
        pos = InStr(1, s1, Space(1))
        s1 = Mid(s1, pos + 1)
        pos = InStr(1, s2, Space(1))
        s2 = Mid(s2, pos + 1)
        flx.Rows = i + 1
        flx.TextMatrix(i, 0) = s1
        flx.TextMatrix(i, 1) = s2
        i = i + 1
    Loop
    Close ff
 
    flx.Col = 0
    flx.Row = 0
    flx.ColSel = 0
    flx.RowSel = flx.Rows - 1
    flx.Sort = flexSortStringAscending
 
    ff = FreeFile
    Open App.Path + "\Zieldatei.txt" For Output As #ff
    For i = 0 To flx.Rows - 1
        Print #ff, flx.TextMatrix(i, 0)
        Print #ff, flx.TextMatrix(i, 1)
    Next i
    Close ff
End Sub
 
Private Sub Form_Load()
    flx.FixedCols = 0
    flx.FixedRows = 0
    flx.Cols = 2
    flx.Rows = 0
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1