Dim fso, ts1, xlApp
Dim buf
Dim tmp()

Set fso = CreateObject("Scripting.FileSystemObject")
Set xlApp = CreateObject("Excel.Application")

Set ts1 = fso.OpenTextFile(  "S:\articles.txt",  1 , False)
    Do While Not ts1.AtEndOfStream
        buf = ts1.ReadLine
tmp = xlApp.Split( buf , ";" )

    Loop
ts1.Close
Set ts1 = Nothing
Set xlApp = Nothing
Set fso = Nothing