Dim document As XmlReader = New XmlTextReader("file.xml")

        While (document.Read())

            Dim type = document.NodeType

            If (type = XmlNodeType.Element) Then

                If (document.Name = "Name") Then

                    TextBox1.Visible = True
                    TextBox1.Text = document.ReadInnerXml.ToString()

                End If

                If (document.Name = "Email") Then

                    TextBox2.Visible = True
                    TextBox2.Text = document.ReadInnerXml.ToString()

                End If

                If (document.Name = "Tel") Then

                    TextBox3.Visible = True
                    TextBox3.Text = document.ReadInnerXml.ToString()

                End If



            End If

        End While
    End Sub