Dim sFile As String
Dim F As Integer
Dim i As Long
 
F = FreeFile
Open "d:\export.csv" For Output As #F
 
With sevList1
  For i = 1 To .ListCount
    Print #F, Replace(.List(i), vbTab, ";")
  Next i
End With
 
Close #F

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de