直接判断就行了
If ndList(i).item("ID") IsNot Nothing Then
nr("eid") = ndList(i).item("ID").InnerText
End If