Dim Lst$(), i&
 
Open "C:\DeineDatei.txt" For Input As #1
  Lst() = Split(Input(LOF(1), #1), "EDO_", , vbTextCompare)
Close #1
For i = 1 To UBound(Lst) Step 2
  Open App.Path & "\Block" & CStr((i + 1) / 2) & ".txt" For Output As #1
    Print #1, "EDO_" & Lst(i) & "EDO_" & Lst(i + 1);
  Close #1
Next i

Gruss,

Zardoz