Get RxNorm drug name based on provided NDC (Office VBA, MSXML2)

RxNorm.vba

Function RxNorm(ByVal strNDC As String)
  Dim xmlhttprequest As MSXML2.XMLHTTP
  Dim xmlresponse As New MSXML2.DOMDocument60
  Set xmlhttprequest = New MSXML2.XMLHTTP
  xmlhttprequest.Open "GET", ("https://rxnav.nlm.nih.gov/REST/rxcui?idtype=NDC&id=" & strNDC), False
  xmlhttprequest.send
  xmlresponse.Load xmlhttprequest.responseXML
  If xmlresponse.SelectSingleNode("//rxnormId") Is Nothing Then
    RxNorm = "**NDC Not Found**"
    Exit Function
  Else
    rxcui = xmlresponse.SelectSingleNode("//rxnormId").Text
  End If
  xmlhttprequest.Open "GET", ("https://rxnav.nlm.nih.gov/REST/rxcui/" & rxcui & "/properties"), False
  xmlhttprequest.send
  xmlresponse.Load xmlhttprequest.responseXML
  RxNorm = xmlresponse.SelectSingleNode("//name").Text
End Function