VBAでXML文書のデータ個数取得

質問

<名簿>
　<人事データ>
　　<名前>田中一郎</名前>
　　<出身>コンガ</出身>
　　<生年月日>1950.12.1</生年月日>
　</人事データ>
　　<名前>小林二郎</名前>
　　<出身>ンジャメナ</出身>
　　<生年月日>1956.11.5</生年月日>
　<人事データ>
　<人事データ>
　　　：
　　　：
</名簿>

というようなXML文書から条件に合致するデータの個数を取得したいのです。

javascriptでは、
　var list = document.documentElement.selectNodes("人事データ/出身[.='コンガ']");
　alert(list.length);
のような記述で可能のようですが、
同じことをVBAで実行するためにはどのように記述すればいいでしょうか。

素人の質問で申し訳ないのですが、よろしくお願いします。

回答No.1

BLUEPIXY

基本的に同じです。
以下のような感じでいいです。
'---------------------------------------------------------------
Public Sub test()
Dim oXML, list, stat
Set oXML = CreateObject("Microsoft.XMLDOM")
oXML.async = False
stat = oXML.Load("E:\Work\sample\VBScript\WSH\XML\件数\data.xml")
If stat Then
Set list = oXML.documentElement.selectNodes("人事データ/出身[.='コンガ']")
MsgBox list.Length
Else
MsgBox "data.xmlを読み込み時エラーが発生しました"
End If
End Sub