Hier ist eine Funktion, die das gewünschte Attribut als String ausliest:
Function getAttributeByName( node As NotesDOMNode, attrName As String ) As String
Dim attrs As NotesDOMNamedNodeMap
Dim a As NotesDOMAttributeNode
Dim i As Integer
Dim numAttributes As Integer
Dim numChildren As Integer
If node.IsNull Then Exit Function
Set attrs = node.Attributes
numAttributes = node.attributes.numberofentries
For i = 1 To numAttributes
Set a = attrs.GetItem(i)
If a.Nodename = attrName Then
getAttributeByName = a.Nodevalue
Exit function
End If
Next
End Function