If objXMLDOC.parseError.errorCode = 0 Then ' If no errors:
        Set objNodes = objXMLDOC.documentElement.selectNodes("TransitResponse/ServiceSummary") ' Look for ServiceSummary nodes in response
        If objNodes.length > 0 Then ' If any exist:
            Set objNode = objXMLDOC.documentElement.selectSingleNode("TransitResponse/TransitFrom/AddressArtifactFormat") ' Check returned FROM values
            strFromCity = objNode.selectSingleNode("PoliticalDivision2").Text
            strFromState = objNode.selectSingleNode("PoliticalDivision1").Text
            strFromZip = objNode.selectSingleNode("PostcodePrimaryLow").Text
            Set objNode = objXMLDOC.documentElement.selectSingleNode("TransitResponse/TransitTo/AddressArtifactFormat") ' Check returned TO values
            strToCity = objNode.selectSingleNode("PoliticalDivision2").Text
            strToState = objNode.selectSingleNode("PoliticalDivision1").Text
            strToZIP = objNode.selectSingleNode("PostcodePrimaryLow").Text
            If (strFromCity = pstrFromCity) And (strFromState = pstrFromState) And (strFromZip = pstrFromZip) And (strToCity = pstrToCity) And (strToState = pstrToState) And (strToZIP = pstrToZip) Then ' If returned values match passed-in values (no correction took place with UPS)
                For Each objNode In objNodes ' Cycle through them
                    If objNode.selectSingleNode("Service/Code").Text = "GND" Then ' Look for a Ground entry
                        gfncUPS_TimeInTransit = CLng(objNode.selectSingleNode("EstimatedArrival/BusinessTransitDays").Text) ' Return the Ground days in transit
                        Exit For
                    End If
                Next
            End If
            Set objNode = Nothing
        End If
        Set objNodes = Nothing
    End If