Sub Create_XSD()
Dim StrMyXml As String, MyMap As XmlMap
Dim StrMySchema As String
StrMyXml = ""
StrMyXml = StrMyXml & ""
StrMyXml = StrMyXml & "999"
StrMyXml = StrMyXml & "Text"
StrMyXml = StrMyXml & "Text"
StrMyXml = StrMyXml & "999"
StrMyXml = StrMyXml & "999"
StrMyXml = StrMyXml & ""
StrMyXml = StrMyXml & ""
StrMyXml = StrMyXml & ""
Application.DisplayAlerts = False
Set MyMap = ThisWorkbook.XmlMaps.add(StrMyXml)
Application.DisplayAlerts = True
StrMySchema = ThisWorkbook.XmlMaps(1).Schemas(1).XML
Open "C:\StrMySchema.xsd" For Output As #1
Print #1, StrMySchema
Close #1
End Sub