[Tasos]

Νίκο, ο χαρακτήρας 9 είναι το Tab.

Για δοκιμή, τρέξε το παρακάτω:

Sub test()
    MsgBox Asc(vbTab)
    MsgBox Asc(";")
End Sub

Η δεν έχεις ελέγξει το σωστό αρχείο ή δεν έχεις κάνει όλες τις προσαρμογές στον κώδικα.

Οι μεταβλητές πρέπει να τροποποιηθούν και να εμφανίζονται έτσι:

    c4Seperator = ";;;;"
    c3Seperator = ";;;"
    c2Seperator = ";;"
    cSeperator = ";"


'και στη δημιουργία του αντικειμένου  oStream 

Set oStream = fso.CreateTextFile(ThePath & tmpString, True, True)

'Δοκίμασε το με, ή χωρίς το τρίτο όρισμα
'Αναφορικα η μέθοδος CreateTextFile
'object.CreateTextFile(Filename, Overwrite as Boolean, Unicode as Boolean] 

Φιλικά

Τάσος