Convert selected file to XML and save.

[bakerman]

Generic Desktop-path

    With CreateObject("WScript.Shell")
        SpecialFolderPath = .SpecialFolders("Desktop")
    End With

If you make only 1 file each day, you could add a date to the filename so it's unique name every day.