1

    Public Sub LireXML(ByVal XML As String)

        Dim document As New XmlDocument
        document.LoadXml(XML)
        Dim prenom As XmlNodeList = document.GetElementsByTagName("Prenom")
        Dim nom As XmlNodeList = document.GetElementsByTagName("Nom")
        'On va parcourir tous les élements Prénoms, ici un seul
        For i As Integer = 0 To prenom.Count - 1
            SouhaiterBienvenue(prenom(i).InnerText, nom(i).InnerText)
        Next

    End Sub

    Public Sub SouhaiterBienvenue(ByVal prenom As String, ByVal nom As String)

        Dim utilis As String = String.Format("{0} {1}", nom, prenom)
        Label1.Text = "Bienvenue " & utilis 'on souhaite la bienvenue à l'utilisateur ayant enregistré le fichier test1

    End Sub