Office - Quitas Comillas al pasa de excel a txt

Si pueden ayudarme con este codigo
Este codigo copia los datos de una columna y los guarda en un archivo txt.
El problema es que los datos cuando aparecen en el txt. los encierra entre comillas
Asi es como salen los datos en el txt.:
"1XZ523FG"
"2XFF54VC"
"Z23ED45X"

Y yo quiero que me los saque asi: sin las comillas , que las elimine.
1XZ523FG
2XFF54VC
Z23ED45X

Tampoco tienen que salir todos en la misma linea
Ejm: "1XZ523FG 2XFF54VC Z23ED45X"

Sino uno debajo del otro:
Ejm:
1XZ523FG
2XFF54VC
Z23ED45X

Gracias Anticipadas.

Aqui esta el codigo:

Private Sub CommandButton1_Click()
Rem nombre de la hoja de excel que tiene la informacion a guardar
Sheets("Hoja1").Activate
If Sheets("Hoja1").Activate Then
Rem seleccionar celda desde donde se quiere guardar la informacion
Range("P1").Select
Rem si no hay ningún dato en P1 que no archive de nuevo
If ActiveCell = Empty Then GoTo salte
Rem abre un archivo en la unidad c con el nombre de datos.txt
Rem en forma de añadir Temporal (Output) en el área de almacenamiento #1
Open "c:\datos.txt" For Output As 1
Rem activa una etiqueta para poder regresar
regresa:
Rem captura el código en una variable
Codigo = ActiveCell
Rem escribe los datos de Codigo en el archivo txt
Write #1, Codigo
Rem baja un renglón para el siguiente nombre
ActiveCell.Offset(1, 0).Select
Rem si la celda esta vacía que no regrese ya
If ActiveCell = Empty Then GoTo salte
Rem regresa a escribir el siguiente nombre en el archivo
GoTo regresa:
salte:
Rem se acabo
Rem cierra el archivo
Close #1
End If
End Sub

Utiliza Print #1, Codigo en lugar de Write #1, Codigo

Saludos desde Baires, JuanC

Gracias JuanC
Me has salvado!
Repito muchas GRACIAS.

Saludos.