<?xml version="1.0" encoding="UTF-8"?>
<test>
        <users  FirstName="Roberts" LastName="Tim" UserName="tim'roberts" Password="123" />
        <users  FirstName="Gerry" LastName="Richard" UserName="timroberts" Password="123" /> 
</test>

Dim ObjXML As New MSXML2.DOMDocument30
Dim ANode As IXMLDOMNode
ObjXML.async = False

If ObjXML.Load("c:\1.xml") Then
    Set ANode = ObjXML.selectSingleNode("//users[@UserName=""tim'roberts""]")
    If Not ANode Is Nothing Then
        MsgBox ANode.Attributes(0).nodeTypedValue
    Else
        MsgBox "Not found!"
    End If
Else
    MsgBox "Error: " & ObjXML.parseError.reason
End If