[Cougar]

Jme souviens plus très bien de la syntaxe en VB, mais faudrait (c'est une des possibilités en tout cas) recharger le Form pour revenir à la "saisie du texte".
Un truc du genre form1.load ou quoi (mais doit y avoir des subtilités si y a plusieurs zone de saisies et qu'on ne veut pas tout effacer).

sinon jviens d'y penser là

Private Sub Form_Unload(Cancel As Integer)
Loop
If a = 1 Then
	If txtName.Text = "" Then
		MsgBox ("All boxes have to be filled before you exit so the person is added")
	End If
while txtname.text <> ""
 
End If
End Sub

enfin la syntaxe est ptet pas bonne, tu peux faire ça avec un return, ou un autre if imbriqué, etc etc