Sub TextdateiAuslesenUndVerändern()
    Dim strFileInput As String
    Dim strFileOutput As String
    Dim strZeile As String
    Dim strZeileNeu As String
    strFileInput = "C:\TestInput.txt"
    strFileOutput = "C:\TestOutput.txt"
    Open strFileInput For Input As #1
    Open strFileOutput For Output As #2
    Do While Not EOF(1)
        Line Input #1, strZeile
        strZeileNeu = strZeileNeu & strZeile & ";"
        Line Input #1, strZeile
        strZeileNeu = strZeileNeu & strZeile & ";"
        Line Input #1, strZeile
        strZeileNeu = strZeileNeu & strZeile & ";"
        Line Input #1, strZeile
        strZeileNeu = strZeileNeu & strZeile & ";"
        Print #2, strZeileNeu
        strZeileNeu = ""
    Loop
    Close #1
    Close #2
End Sub