Detecter erreur dans un TextBox à l'aide d'un While

en fait, je souhaite que mon code me permet de faire ainsi :

une boite de dialogue s'affiche -> l'utilisateur saisi ou pas des information (ici Nom & Prénom) -> si tout est bon, on passe à l'étape suivante (cette partie marche bien ) -> si non , l'utilisateur n'a pas saisi une ou les deux infos demandées donc un msgbox apparait disant à l'utilisateur qu'il oublié de remplir une ou les deux case (( et c'est ici que mon code ne marche pas) .

donc quand le l'utilisateur ne saisi pas une des information demandées le msg box apparait, le but c'est quand on clique sur ok (le ok du msgbox) on retourne à la meme même boite de dialogue ou on demande les info, sauf qu'au lieu de quitter ca s'affiche de nouveau en boucle .

j'ai réécris le code d'une autre manière mais sans succès.


Private Sub Next_bmr_Click()

Dim Nom As String
Dim Msg2 As String
Dim Prenom As String
Dim res As Boolean

res = False
Msg2 = "N'hésitez pas à solliciter l'aide pour toute information."

Nom = TextBox1.Text
Prenom = TextBox2.Text

Do
If Nom <> "" And Prenom <> "" Then
res = True
Sheets("Feuil2").Range("A2") = Nom
Sheets("Feuil2").Range("B2") = Prenom
Sheets("Feuil2").Range("C2") = Prenom & "." & Nom & "@engie.com"
MsgBox "Bienvenue " & Prenom & " " & Nom & "!" & " " & Msg2

Unload Me 'ou Unload Acceuil_1
Acceuil_2.Show
Exit Do ' => Si réponse = Oui on sort de la boucle
End If
Loop While 1 = 1 ' => Boucle infinie


End Sub