Dim AppNum as integer = 12345 'sample number Dim w As New Xml.XmlTextWriter(AppNum.ToString.Trim + ".XML", Nothing) w.WriteStartDocument() w.WriteStartElement("salary") w.WriteAttributeString("type", "annual") w.WriteString("4500") w.WriteEndElement() w.WriteEndDocument() w.Flush() w.Close()Regards,