...
For i = 0 To 4 
  If List1(i).ListCount = 0 Then
    Print #a, String$(3, t)
  Else
    For save = 0 To List1(i).ListCount – 1
      Print #a, List1(0).List(save); t; List1(1).List(save); t; List1(2).List( _
        save); t;List1(3).List save 
    Next save
  End If
Next i
...

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de