Petit problème module

Bonjour,
Je vous prie de bien vouloir être indulgents car je commence tout juste la programmation (une ou deux semaines)
En fait je cherche à créer un module pour retourner le chemin d'un répertoire et l'afficher en tant que lien.
Je (tente) crée une application pour gérer une base de données au format access dans le domaine de l'immobilier alors je poserais surement d'autre questions si cela ne vous dérange pas.
Mon problème sur ce module est que je n'arrive pas à faire sortir de la boucle lorsque l'utilisateur clique sur messagebox.cancel, la fonction m'affiche à nouveau le folderbrowserdialog. Je pense savoir d'où vient le problème mais je n'arrive pas à le régler...
Voilà le code: Module
  

---

Mod_LienRep

Function MPRepertoire()
        Do
            Dim FolderBrowserDialog1 As New FolderBrowserDialog()
            FolderBrowserDialog1.Description = "Choisissez votre répertoire"

            If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
                Dim Message As String = "Vous avez choisi: " + FolderBrowserDialog1.SelectedPath
                Dim Caption As String = "Est-ce le bon répertoire?"
                Dim Buttons As MessageBoxButtons = MessageBoxButtons.YesNoCancel
                Dim Result As DialogResult
                Dim Icon As MessageBoxIcon = MessageBoxIcon.Information
                Result = MessageBox.Show(Message, Caption, Buttons, MessageBoxIcon.Question)

                Select Case Result
                    Case Result = DialogResult.Yes
                        Return FolderBrowserDialog1.SelectedPath
                        Exit Do

                    Case Result = DialogResult.Cancel
                        Return Nothing
                        Exit Do
                        Exit Function

                    Case Result = DialogResult.No

                End Select
            Else
                Exit Do

            End If

        Loop


    End Function

End Module

---

Si au passage vous voyez des améliorations possibles n'hésitez pas a m'en faire part

Mon autre question est: sera t-il possible, a terme, d'utiliser une application windows de gestion de base de données access ou sql développée en VB.net via internet. Plus concrètement, les personnes utilisant cette appli seront peut être amenées a devoir consulter et modifier la base depuis leur domicile.

Merci d'avance.

Merci beaucoup ça marche maintenant.
En fait j'ai précisé car je ne savais pas sur quel dialog cela allait agir (folderbrowserdialog ou messagebox)
Je te remercie pour ton aide

Pour la précision du language utilisé, je suis désolé car j'y ai pensé et j'étais donc sur de l'avoir précisé, mais je ne me suis pas relu assez attentivement.

Merci c'est vrai que c'est plus propre