Hochkomma mit VBSCRPT aus Excel ausgeben

Ich habe folgenden Code in einem Excel Makro.
Ich möchte aber, dass bei der Ausgabe “Zeile3=" & ActiveCell.Offset(0, 3).Text der Wert der Zelle in Anführungszeichen steht.
Das tut er nicht.
Momentan kommt:

Ausgabe
Wert="Test"
Zeile3=Hallo

Es soll aber sein:
Ausgabe
Wert="Test"
Zeile3="Hallo"

Mein Code lautet:

Option Explicit

Const expPfad = "C:\Temp\G\"
Const expFile = "1.txt"

Sub Create_txt()
Dim Qe As Long, myEdit As Variant
Open expPfad & expFile For Output As #1
Print #1, "Ausgabe" & vbNewLine & "Wert=" & """Test""" & vbNewLine & “Zeile3=" & ActiveCell.Offset(0, 3).Text
Close #1
End Sub

Wie kann ich das erreichen?

Gruß viking

 Option Explicit
 
 Const expPfad = "C:\Temp\G\"  
 Const expFile = "1.txt"  
 
 Sub Create_txt()
     Dim Qe As Long, myEdit As Variant
     Open expPfad & expFile For Output As #1
     Print #1, "Ausgabe" & vbNewLine & "Wert=" & """Test""" &  vbNewLine &  “Zeile3=" & ActiveCell.Offset(0, 3).Text   
     Close #1       
 End Sub

     Print #1, "Ausgabe" & vbNewLine & "Wert=" & """Test""" & vbNewLine & "Zeile3 = " & Chr$(34) & ActiveCell.Offset(0, 3).Text & Chr$(34); 

Print #1, "Ausgabe" & vbNewLine & "Wert=" & """Test""" & vbNewLine & "Zeile3=""" & ActiveCell.Offset(0, 3).Text & """"