Dim xmldoc As New Xml.XmlDocument
xmldoc.Load("c:\file.xml")
Dim nodes As Xml.XmlNodeList = xmldoc.SelectNodes("WC/CMS")
Dim type(nodes.Count - 1) As String
Dim status(nodes.Count - 1) As String
Dim reviewNum(nodes.Count - 1) As String
Dim checkIssueDate(nodes.Count - 1) As String
For x As Integer = 0 To nodes.Count - 1
type(x) = nodes(x).SelectSingleNode("TYPE").InnerText
status(x) = nodes(x).SelectSingleNode("STATUS").InnerText
If type(x) = "CH" And status(x) = "LI" Then
reviewNum(x) = nodes(x).SelectSingleNode("REVIEW/NUM").InnerText
checkIssueDate(x) = nodes(x).SelectSingleNode("CHECK/ISSUE_DATE").InnerText
End If
Next