Open "C:\Prodaja\PresjekX.xml" For Output As 1
Dim Tekst As String

Tekst = "<?xml version=""1.0"" encoding=""IBM852""?>"
Print #1, Tekst