Inhalt einer Excel Datei mit VBS Script ersetze, ändern

Hallo an alle,

die Aufgabe ist:
in einer Excel Datei stehen in der ersten Zeile (Spaltenbeschriftung) die Werte betragnach UUID oder steuernach UUID. Diese sollen durch betrag und steuer ersetzt werden!

In den restlichen Zellen ab der 2 Zeile möchte ich eventuell vorhandene Anführungszeichen " entfernen! Die bestehende Datei test.xlsx kann überschrieben werden.

als Anfänger habe ich aufgrund meiner Recherchen im Web folgenden NICHT funktionierenden Code gebastelt:

Datei = "C:\test.xlsx"
arrAlt = Array("betragnach UUID", "steuernach UUID", "betragnach konto", "steuernach konto", Chr(34))
arrNeu = Array("betrag", "steuer", "betrag", "steuer", "")

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

Set wb = app.Workbooks.Open(Datei)

For i = 0 To UBound(arrAlt) - 1
var = Replace(var, arrAlt(i), arrNeu(i))
Next

fso.CreateTextFile(Aus).Write var

wb.Save
wb.Close

app.Quit
Set app = Nothing
Set fso = Nothing

Vielen Dank

Const DATEI = "C:\text.xlsx"  
Set objExcel = CreateObject("Excel.Application")  
objExcel.DisplayAlerts = False
objExcel.Visible = True
arrAlt = Array("betragnach UUID","steuernach UUID","betragnach konto","steuernach konto")  
arrNeu = Array("betrag","steuer","betrag","steuer")  
With objExcel.Workbooks.Open(DATEI)
	With .Sheets(1).Range("1:1")  
		For i = 0 To UBound(arrAlt)
			.Replace arrAlt(i),arrNeu(i),2,1,False
		Next
	End With
	.Sheets(1).UsedRange.Offset(1,0).Replace """","",2,1,False  
	.Save
	.Close True
End With
objExcel.DisplayAlerts = True
objExcel.Quit
MsgBox "Feddich", vbInformation