bonjour!

j'ai voulu recuperer la signification du mot mot manger saisie dans textbox sur un text box.

voici mon programme mais ça marche pas

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Command1_Click()
Dim a As String
Dim b As String
a = Val(Text1.Text)
b = Val(Text2.Text)
If a = manger Then
b = eat
Else
b = mot - inconu
End If
Text2.Caption = "&b"
End Sub
si quelqu'un peut m'aider...