Zahl aus Zelle in TXTDatei schreiben

Sub schreiben()
Dim strFileName As String
strFileName = "Kopie" & ".txt"
Open "C:\" & strFileName For Append Lock Read Write As #1
Print #1, Range("A1")
Close #1
End Sub

Die Zelle A1 hat das Standardformat. Wenn jetzt in A1 z.B. eine Zahl steht "20", dann wird in der TXT Datei vor und nach der Zahl ein Leerzeichen angehängt " 20 ". Wenn die Zelle als Text formatiert wird, dann sind keine Leerstellen enthalten.
Gibt es eine Möglichkeit, die Zahl ohne Leerzeichen in die TXT Datei zu schreiben ohne die Standard Formatierung zu ändern.
Vielen Dank im Voraus!
MFG Andre