Подскажите как избавиться от ковычек. получается есть такой код

Dim res As Integer
Dim Tmp1 As String

outputFile = Freefile()
fileName$ = "C:\111.xml"
Open fileName$ For Output As outputFile Charset = "UTF-8"
fileNum = Freefile()
Open filepath For Input As fileNum
Do While Not Eof(fileNum)
Line Input #fileNum, MyTmpString
Tmp1 = MyTmpString
res = DosToWin(MyTmpString,Tmp1)
Write #outputFile, Tmp1
Loop
Close outputFile
Close fileNum
Call doc.Save( True, True )

Все бы хорошо но в файле 111.xml каждая строка в ковычках("строка"). Как их отсекать?

 

заменить
Write #outputFile, Tmp1
на
Print #outputFile, Tmp1

 

заменить
Write #outputFile, Tmp1
на
Print #outputFile, Tmp1

Да спасибо помогло!