Salut,
Ta zone de texte s'appele text1 et tu as un bouton qui s'appelle Command1
Private Sub Command1_Click()
If Text1.text = "salut tout le monde" then call Msgbox("Salut aussi") 'Teste la valeur exact
If Instr(1, Text1.text, "salut tout le monde") then Call Msgbox("La phrase contient salut tout le monde")
End Sub
Voila en esperant avoir pu t'aider un peu
@+, Julien 
Pensez: Moteur de Recherche, Réponse Acceptée