Enregistrer le contenu d'un formulaire dans un fichier XML

Bonjour,
Je programme actuellement en VB.Net, je ne débute pas dans ce langage de programmation . Mais j'aurais bien besoin d'aide pour cette fois ;-)
J'ai suivis un tutoriel pour créer sa propre extension de fichier en VB.Net .
C'est relativement simple car le framework nous facilite la vie :-)
J'ai donc choisis le XML ...
Voici le lien du tutoriel vous comprendrez :
https://www.leblogduhacker.fr/vb-net-creer-sa-propre-extension/
J'ai aussi quelques problèmes au niveau de l’extension :
- L'icône de mon logiciel ne s'affiche pas directement sur le fichier créer (C'est car le fichier par exemple (TEST.Extension) n'est pas directement associer à mon logiciel par défaut , je dois aller le chercher et dire à l'ordinateur qu'il faut toujours utiliser mon logiciel pour ouvrir les fichier (.Extension). J'ai aussi crypter mon fichier Xml (qui comporte mon extension) pour que celui ci ne s'ouvre qu'avec mon logiciel et pas avec le bloc note ou autres ...
Voici mon code :

Imports System.IO
Imports System.Xml
Imports System.Text
Imports System.Security.Cryptography
Public Class Form1

    Sub associerExtension()

        Dim extension As String = ".osms"
        Dim nomSansPoint As String = extension.Substring(1, extension.Length - 1) 'on aura uniquement test1
        Dim cheminFinalProgramme As String = My.Computer.FileSystem.SpecialDirectories.MyDocuments

        My.Computer.Registry.ClassesRoot.CreateSubKey(extension).SetValue("", nomSansPoint, Microsoft.Win32.RegistryValueKind.String)
        My.Computer.Registry.ClassesRoot.CreateSubKey(nomSansPoint & "\shell\open\command").SetValue _
            ("", cheminFinalProgramme & " ""%l"" ", Microsoft.Win32.RegistryValueKind.String)

    End Sub
    Public Sub LireXML(ByVal XML As String)

        Dim documents As New XmlDocument
        documents.LoadXml(XML)
        Dim prenom As XmlNodeList = documents.GetElementsByTagName("Prenom")
        Dim nom As XmlNodeList = documents.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}", prenom, nom)
        Label1.Text = utilis 'on souhaite la bienvenue à l'utilisateur ayant enregistré le fichier test1


    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Try 'on gère les erreurs 
            If My.Computer.Registry.ClassesRoot.OpenSubKey(".osms") Is Nothing Then

                'si l'extension n'est pas encore associée, on l'associe.
                associerExtension()

            End If
        Catch ex As Exception
            MsgBox("Erreur !") 'message très descriptif..
        End Try

        'on obtient les arguments, à savoir le nom du fichier avec lequel le prog s'est ouvert
        For Each argument As String In Environment.GetCommandLineArgs()

            If argument.Contains(".osms") Then 'si il contient notre extension

                TextBox3.Text = TextBox3.Text & argument 'on affiche le chemin du fichier test1
                LireXML(Decryptage(My.Computer.FileSystem.ReadAllText(argument)))

            End If
        Next
    End Sub
    Sub enregistrerPref()

        Dim donneesXML As String = "<?xml version=""1.0"" encoding=""utf-8"" ?>" 'ligne nécessaire pour adhérer au standard
        donneesXML = String.Concat(donneesXML, vbNewLine, "<Enregistrement>") 'notre balise principale
        donneesXML = String.Concat(donneesXML, vbNewLine, vbTab, "<Prenom>" & TextBox2.Text & "</Prenom>")
        donneesXML = String.Concat(donneesXML, vbNewLine, vbTab, "<Nom>" & TextBox1.Text & "</Nom>")
        donneesXML = String.Concat(donneesXML, vbNewLine, "</Enregistrement>")

        'on enregistre sous notre propre extension (et ici, sur le bureau)
        Using sr As New StreamWriter(Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) & "\monEx.osms")
            sr.Write(Cryptage(donneesXML))
        End Using

    End Sub

    Public Function Cryptage(ByVal donnees As String) As String

        Dim sha1 As New SHA1Managed
        Convert.ToBase64String(sha1.ComputeHash(Encoding.ASCII.GetBytes(donnees)))
        Dim donneeCryptees() As Byte = ASCIIEncoding.ASCII.GetBytes(donnees)
        Dim cryptageEnString As String = Convert.ToBase64String(donneeCryptees)
        Return cryptageEnString

    End Function
    Public Function Decryptage(ByVal Data As String) As String

        Dim dd() As Byte = Convert.FromBase64String(Data)
        Dim decryptageEnString As String = Encoding.ASCII.GetString(dd)
        Return decryptageEnString

    End Function
    Sub ajouterIcone()
        My.Computer.Registry.ClassesRoot.OpenSubKey(".osms").CreateSubKey("DefautIcon").SetValue("", ",0")
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        enregistrerPref()
    End Sub
End Class

Mon objectif principal , c'est de pouvoir enregistrer le contenu de plusieurs textboxs dans mon fichier xml , et quand j'ouvre celui ci avec mon logiciel , les mots écrit dans les textboxs apparaissent .
Exemple :
J'ai 2 textboxs et 1 bouton

Quand je clique sur le bouton "Enregistrer" il faut que le contenu des textboxs soit enregistrer dans un fichier xml créer en même temps (Moi mon extension xml je l'est nommer (".OSM") )
Comme ça quand je ferme le logiciel et que je clique sur mon fichier xml :
Ça m'ouvre mon logiciel et ça me remet le contenu de mes textboxs .
Comme ça pour plusieurs fichiers . Si j'ouvre test1 par exemple : alors textbox1 = "Hôpital" et la textbox2 = "Garage" admettons...
J'espère que vous pourrez m'aider , merci beaucoup (-: