Dim Resultat
Resultat=InputBox ("Entrez un texte", "Votre texte")
If Resultat <> "" then MsgBox "Le texte que vous avez saisi est :" + Resultat else MsgBox "Vous avez abandonné votre saisi..."