Open "C:\HCP\TO_FP\CMD.OK" For Output As 2#
Dim Tekst1 As String
Tekst1 = "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>"
Print #2, Tekst1
    
Close #2#