XML Reader in VB.NET

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 ReadXMLFromFile()
End Sub
Private Sub ReadXMLFromFile()
 Dim reader As New XmlTextReader(“c:dom.xml”)
 Dim contents As String = “”
 While reader.Read()
  reader.MoveToContent()
  If reader.NodeType = XmlNodeType.Element Then
   contents &= reader.Name & “: “
  End If
  If reader.NodeType = XmlNodeType.Text Then
   contents &= reader.Value & ControlChars.CrLf
  End If
 End While
 TextBox1.Text = contents
End Sub