Open "C:\Prodaja\RAC.XML" For Output As 1
Dim Tekst As String

Tekst = "<tnsRacunZahtjev>"
Print #1, Tekst


Tekst = "<tnsZaglavlje>"
Print #1, Tekst
    
    Tekst = "<tnsIdPoruke>" & "f81d4fae-7dec-11d0-a765-00a0c91e6bf6" & "</tnsIdPoruke>"
    Print #1, Tekst
    
Tekst = "</tnsZaglavlje>"
Print #1, Tekst

Tekst = "</tnsRacunZahtjev>"
Print #1, Tekst
Close #1