Csv in excel

Hallo,
ich suche eine Möglichkeit eine CSV in Excel zu konvertieren.
Etwas habe ich schon versucht aber es klappt nicht so ganz mit der Feld - Text erkennung. Denn die Anführungszeichen hinter dem Semikolon sind leider auch mit in Excel zu sehen und das Feld ist standart formatiert. Kann man das irgendwie lösen..?

' BEGIN Script


Const ForReading = 1

Dim fso
Dim tf
Dim fields
Dim row
Dim col
Dim excel
Dim inputFile
Dim outputFile

inputFile = "c:\fertig.csv"
outputFile = "c:\fertig.xls"

Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.OpenTextFile(inputFile, ForReading)

Set excel = CreateObject("Excel.Application")
excel.Visible = False
excel.DisplayAlerts = False
excel.Workbooks.Add

WScript.Echo "Processing..."
row = 1
Do While tf.AtEndOfStream <> True
fields = Split(tf.Readline, ";")
For col = 0 To UBound(fields)
excel.Cells(row, col + 1).Value = fields(col)
Next
row = row + 1
Loop

excel.ActiveWorkbook.SaveAs(outputFile)

excel.Quit
Set excel = Nothing

' END Script