Нработает метод .removeAttribute на удаление атрибута, проверяю существование атрибута: commInfo.getAttribute указывает что существует проверяю файл, атрибут как был так и остаеться может еще прописать чегото нужно? Зарание благодарен.

_Vasilisk_,
Public Sub DeleteInf(GStatus As String, PoleXML As String)
Dim PatchXML As String

PatchXML = Environ("APPDATA") & "\" & "БД.xml"

Set xmldoc = New DOMDocument
xmldoc.Load PatchXML

Dim commInfo As IXMLDOMElement

' Поиск собирательного элемента
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(PatchXML) Then
MsgBox "Не создана XML база", vbInformation, "!"
Exit Sub
End If

Set commInfo = xmldoc.documentElement.selectSingleNode("//Body").selectSingleNode(GStatus)

If TypeName(commInfo) <> "Nothing" Then

xmldoc.loadXML xmldoc.xml
If TypeName(commInfo.getAttribute("A" & PoleXML)) <> "Nothing" Then
commInfo.removeAttribute ("A" & PoleXML)
End If
End If

Exit Sub

Нашел ошибку:
надо было убрать xmldoc.loadXML xmldoc.xml
и после removeAttribute прописать xmldoc.save PatchXML