Hello All, I am new the programming game of XML and XSC and have hit a roadblock

I Keep getting: Run-time error '-2147217376 (80041020)
XML Parse Error

I have looked up others that have had the similar issues but all the others i see have Automation Errors not Parse Errors
Its just a simple code but its preventing me from advancing forward down this interesting program.
Line Marked with

Sub Create_XSD2()
Dim StrMyXml As String, MyMap As XmlMap
Dim StrMySchema As String
StrMyXml = "C:\BookData.xml"

Application.DisplayAlerts = False
Set MyMap = ThisWorkbook.XmlMaps.Add(StrMyXml)
Application.DisplayAlerts = True

StrMySchema = ThisWorkbook.XmlMaps(1).Schemas(1).XML
Open "C:\BookData2.xsd" For Output As #1
Print #1, StrMySchema
Close #1
End Sub

Thanks All