Fix hard dependency for XML

Author: timhall

specs/RestClientSpecs.bas

@@ -317,7 +317,7 @@ Public Function Specs() As SpecSuite
         Request.Format = xml
         Request.Method = httpGET
 
-        Set XMLBody = New MSXML2.DOMDocument60
+        Set XMLBody = CreateObject("MSXML2.DOMDocument")
         XMLBody.async = False
         XMLBody.LoadXML "<Point><X>1.23</X><Y>4.56</Y></Point>"
         Request.AddBody XMLBody

specs/RestHelpersSpecs.bas

@@ -170,7 +170,7 @@ Public Function Specs() As SpecSuite
     End With
 
     With Specs.It("should convert to XML")
-        Set XMLBody = New MSXML2.DOMDocument60
+        Set XMLBody = CreateObject("MSXML2.DOMDocument")
         XMLBody.async = False
         XMLBody.LoadXML "<Point><X>1.23</X><Y>4.56</Y></Point>"
 

src/RestHelpers.bas

@@ -286,7 +286,7 @@ End Function
 ' @return {Object} XML
 ' --------------------------------------------- '
 Public Function ParseXML(Encoded As String) As Object
-    Set ParseXML = New MSXML2.DOMDocument
+    Set ParseXML = CreateObject("MSXML2.DOMDocument")
     ParseXML.async = False
     ParseXML.LoadXML Encoded
 End Function