title: Parse JSON/XML parameters from web API
body: <p>This is a quick and dirty POC I have so far from other helpful Stack posts: </p>
  
  <pre><code>Public Function WebRequest(url As String) As String
      Dim http As MSXML2.xmlhttp
      Set http = CreateObject("MSXML2.ServerXMLHTTP")
  
      http.open "GET", url, False
      http.send
  
      WebRequest = http.responseText
      Set http = Nothing
  End Function
  
  Private Sub Command1_Click()
  
  Dim http As MSXML2.xmlhttp
      Dim result As String
      Dim url As String
      Dim productId As String
  
      productId = "2"
      url = "http://localhost:1111/api/products/" &amp; productId
      result = WebRequest(url)
  
      MsgBox result
  
  End Sub
  </code></pre>
  
  <p>This calls a simple web API and returns as expected. The response reads as: </p>
  
  <pre><code>{"Id":2,"Name":"Yo-yo","Category":"Toys","Price":3.75}
  </code></pre>
  
  <p>What is the best way to assign the parameters to variables for use within the rest of the app? </p>