Sub NewEMailFile()
 
  ' ---
  ' es werden keine Fehler (wie z.B. nicht vorhandene Dateien) abgefangen
  ' ---
 
  Dim F1 As Long, F2 As Long
  Dim sRead As String, lCnt As Long, sMails As String
 
  lCnt = 0
  sMails = ""
 
  ' Dateinummer für die einzulesende Datei
  F1 = FreeFile
 
  ' Dateinummer für die zu schreibende Datei
  F2 = FreeFile
 
  ' Quelldatei öffnen (Datei mit den EMail-Adressen)
  Open "C:\email.txt" For Input As #F1
 
  ' Zieldatei neu anlegen bzw. zurücksetzen
  Open "C:\email2.txt" For Output As #F2
 
  ' Quelldatei bis zum Ende durchlaufen
  Do Until EOF(F1)
 
    ' Zählen um eins erhöhen
    ' (aus 10 Zeilen soll ja eine werden)
    lCnt = lCnt + 1
 
    ' Zeile aus Quelldatei lesen
    Input #F1, sRead
 
    ' --- Paket zusammenstellen ---
    ' wenn Paket nicht leer ist, dann Trennung rein
    If sMails <> "" Then sMails = sMails & ", "
 
    ' neue Adresse dem Paket dranhängen
    sMails = sMails & sRead
 
    ' wurden 10 Zeile(Adressen) eingelesen,
    ' dann Paket speichern
    If lCnt = 10 Then
 
      ' Paket in Zieldatei schreiben
      Print #F2, sMails
 
      ' Leerzeile einfügen
      Print #F2, ""
 
      ' Paket leeren
      sMails = ""
 
      ' Zählen zurücksetzen
      lCnt = 0
 
    End If
 
  ' Ende der Schleife "Do Until EOF(F1)"
  Loop
 
  ' enthält das Paket noch Daten, dann das
  ' Paket noch in die Zieldatei schreiben
  If sMails <> "" Then Print #F2, sMails
 
  ' Zieldatei schließen
  Close #F2
 
  ' Quelldatei schließen
  Close #F1
 
End Sub

Viel Spass,
R@lf