Private Sub CreateXML_Click()
    On Error GoTo EH_CreateXML_Click
    
 Dim name As String
    name = "WORK " & Worksheets("table").Range("Comp").Value & ".xml"
    
 
    fileToSave = Application.GetSaveAsFilename(name, "Dokumenty XML (*.xml), *.xml")
      
      
    If fileToSave <> False Then
        Dim xml As String
        xml = GenXML()
       
        Dim fso, MyFile
        Set fso = CreateObject("Scripting.FileSystemObject")
        Set MyFile = fso.CreateTextFile(fileToSave, True, True)

        MyFile.Write xml
        MyFile.Close
    Else
        MsgBox "Not chosen", vbInformation
    End If
    Exit Sub
    
EH_CreateXML_Click:
    MsgBox Err.Description, vbCritical, "Error in " & "CreateXML_Click()"
End Sub