=IF(VLOOKUP(T14,Lookup!FN2:GA222,14,FALSE)=0,"",VLOOKUP(T14,Lookup!FN2:GA222,14,FALSE))

=IF(VLOOKUP(T14,Lookup!FN2:GA222,12,FALSE)=0,"",VLOOKUP(T14,Lookup!FN2:GA222,12,FALSE))

Dim url
url = "http://" & server & "/character-sheet.xml?r=" & realm & "&n=" & character_name & "&lang=en_us"

If IsNull(ThisComponent) Or IsEmpty(ThisComponent) Then
   Set Node = GetSingleDataXLS(url, "//character")
Else
   Set Node = GetSingleDataOO(url, "//character")
End If

If Node Is Nothing Then
   MsgBox "There is no character of that name found"
Else
   'Node is now an XML node that is the root of all your character data, and can be accessed like so:
   race = Node.Attributes.getNamedItem("race").Text
   Worksheets("Set1").Range("B30").value = race

   'or more compact:
   Worksheets("Set1").Range("B30").value = Node.Attributes.getNamedItem("race").Text

   'To access items, you set the node to "//items/item" using the above method to get a list of nodes, and iterate over each one:
   Set NodeList = GetDataXLS(url, "//items/item")
   For i = 0 To NodeList.Length - 1
      Set Node = NodeList.item(i)
      slot = Node.Attributes.getNamedItem("slot").Text 'tells you what slot you're looking at
      itemName = getItemName(Node.Attributes.getNamedItem("id").Text)
      gem1 = getItemName(Node.Attributes.getNamedItem("gem0Id").Text)
      'etc for gem1Id, gem2Id

      'For enchants, there's a way to look up the tooltip to get the enchant name, and there's also a way to do talents and whatnot, but I think this is enough for now

Function GetSingleDataXLS(url, searchterm)
    Set objXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP.3.0")
    objXMLHTTP.Open "GET", url, False
    objXMLHTTP.SetRequestHeader "User-Agent", "Mozilla/5.0 (Windows; U; Windows NT 5.0; en-GB; rv:1.8.1.4) Gecko/20070515 Firefox/2.0.0.4"
    objXMLHTTP.SetRequestHeader "Content-Type", "text/xml"
    objXMLHTTP.SetRequestHeader "Accept-Language", "en"
    objXMLHTTP.Send ""
    Set xmlPG = objXMLHTTP.responseXML  'Get the XML in xmlPg
    
    If xmlPG Is Nothing Or xmlPG.DocumentElement Is Nothing Then
        Set GetSingleDataXLS = Nothing
    Else
        Set GetSingleDataXLS = xmlPG.DocumentElement.selectSingleNode(searchterm)
    End If
    Set objXMLHTTP = Nothing
    Set xmlPG = Nothing
End Function

Function GetSingleDataOO(url, searchterm)
    Dim oMSXML
    Set oObjFactory = createUnoService("com.sun.star.bridge.OleObjectFactory")
    Set oMSXML = oObjFactory.createInstance("MSXML2.DOMDocument")
    oMSXML.async = False
    oMSXML.validateOnParse = False
    oMSXML.resolveExternals = False
    oMSXML.Load (url)
    Set oNodes = oMSXML.selectSingleNode(searchterm)
    If IsNull(oMSXML) Or IsNull(oNodes) Then
        Set GetSingleDataOO = Nothing
    Else
        Set GetSingleDataOO = oNodes
    End If
    Set oMSXML = Nothing
    Set oObjFactory = Nothing
End Function

Function getItemName(id As String)
    Dim sUrl
    Dim sName
    Dim sServer
    
    sServer = Worksheets("Realms").Range("UrlStart").value
    sName = ""
    sUrl = "http://" & sServer & "/item-info.xml?i=" & id & "&lang=en_us"
    
    If IsNull(ThisComponent) Or IsEmpty(ThisComponent) Then
        Set Node = GetSingleDataXLS(sUrl, "//itemInfo/item")
    Else
        Set Node = GetSingleDataOO(sUrl, "//itemInfo/item")
    End If
    
    sName = Node.Attributes.getNamedItem("name").Text
        
    getItemName = sName
    
End Function