Dim reader As XmlTextReader
 reader = New XmlTextReader(xmlFile)
 While reader.Read()
    ' Write the start tag
    If reader.NodeType = XmlNodeType.Element Then
       ' Do something
    Else
       ' Do something else
    End If
 End While