VBA Gänsefüsschen speichern

Rufus

Hallo,
ich lese mit vba aus einer Excel-Tabelle strings aus und speichere
diese mit
ActiveSheet.SaveAs Filename:=saveFilename, FileFormat:=xlUnicodeText

in der zweiten Spalte möchte ich jedoch gern die Strings durch Gänsefüßchen eingeschlossen haben, das klappt aber nicht.
Ergebnis:
AccKey_Tab """AccKey_Tab """

ich möchte jedoch
AccKey_Tab "AccKey_Tab "

ich habe die Spalte bisher duchlaufen und versucht ein Häckchen hinzuzufügen

For i = StartKey To Keyanzahl
        wert = Cells(i, 2).Text
        If (wert <> "") Then
        wert = Chr(34) + wert + """"
'        wert = "'" + wert + "'"
        Cells(i, 2) = wert
        End If
    Next i

leider klappt das nicht. Die Datei soll als Unicode gespeichert werden, weil
es eine Sprachdatei für ein internationalisiertes Projekt werden soll.

Danke für Anregungen