Proyecto VB XML

          foreach (XmlAttribute atributo in tag.Attributes)
            {
                if (atributo.Name == "cantidad")
                {
                    MessageBox.Show(atributo.Value);
                }
            }

 Private Sub CreateFileContactosXML()
        'Crear objeto y poblarlo
        Dim objContactos As New clsContactos
        objContactos.Nombre = txtNombre.Text
        objContactos.Telefono = txtTelefono.Text
        objContactos.Direccion = txtDireccion.Text
        objContactos.email = txtEmail.Text

        'Crear un objeto serializado para la clase contactos
        Dim objWriter As New Serialization.XmlSerializer(GetType(clsContactos))
        'Crear un objeto file de tipo StremWriter para almacenar el documento xml
        Dim objfile As New StreamWriter("Contacto.xml")
        'Serializar y crear el documento XML
        objWriter.Serialize(objfile, objContactos)
        'Cerrar el archivo
        objfile.Close()
    End Sub


    'OpenFileContactosXML
    'Abrir archivo XML y Mostrarlo en los controles dela forma.

    Private Sub OpenFileContactosXML()
        'Leer un archivo XML y cargarlo en un objeto
        Dim xmlReader As New XmlTextReader(Application.StartupPath + "Contacto.xml")
        'Crear un objeto para deserializar el archivo XML
        Dim Reader As New Serialization.XmlSerializer(GetType(clsContactos))
        'Deserialziar el archivo xml y cargarlo en un objeto
        Dim ContactosRead = Reader.Deserialize(xmlReader)
        'Cargar los datos en la forma.
        txtNombre.Text = ContactosRead.nombre
        txtDireccion.Text = ContactosRead.Direccion
        txtTelefono.Text = ContactosRead.telefono
        txtEmail.Text = ContactosRead.email
        'Cerrar Archivo XML
        xmlReader.Close()
    End Sub

    '5. Modificar el constructor de la forma para crear o mostrar la información del documento xml.  Utilizando 

    Public Sub New()
        MyBase.New()

        'El Diseñador de Windows Forms requiere esta llamada.
        InitializeComponent()

        'Agregar cualquier inicialización después de la llamada a InitializeComponent()
        Dim fa As New FileInfo(Application.StartupPath & "Contacto.xml")
        If fa.Exists Then
            OpenFileContactosXML()
        Else
            CreateFileContactosXML()
        End If
    End Sub


    ' 6.  Crear los manejadores de eventos para actualizar la información del documento XML


    Private Sub butAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butAceptar.Click
        'Crear archivo XML con informacion del contacto
        CreateFileContactosXML()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        CreateFileContactosXML()
        Me.Close()
    End Sub