XML : how to write an attribute to a root attribute using xml and xsd

I was wondering if someone could help me figure out how to write and attribute to a root attribute.

right now i have it as :

   Dim XMLOUtput= ",?xml version""1.0"" ecoding = ""utf-8"" ?>"   xmlOutput= xmloutput + "<company="    xmloutput = xmloutput + "xmlns = ""http:..www.w3schools.com"""    

my issue is that i want it to show as

Also i would like to keep it as the xmloutput.

I have tried xmloutput = xmloutput + "

i have tried a couple different things as well and they didn't work either.