Visual Basic 6 - parola chiave

Ciao a tutti, adesso ho un altro piccolo problemino: ho creato una text box chiamata txtrobot, una txtcmd e un comando chiamato cmd. adesso vorrei fare in modo che se inserisco in txtcmd una determinata parola (attenzione: parola non frase) premendo sul commandbutton esca una frase preimpostata da me in txtrobot.
N.B.
non mi serve il codice per inserire il testo in txtrobot, ma il codice per fare una determinata azione se nella txtcmd c'è una determinata parola (es. ho impostato cantante, scrivo sono un cantante, premo sul cmd e in txtrobot esce scritto: cantante? vorresti essere un cantante?

grazie in anticipo

Private Sub cmd_Click()
if txtcmd.text="parola" then
txtrobot.text="altraparola"
End if
End Sub

dovrebbe andare così...se il testo di txtcmd è parola cliccando su cmd viene scritto su txtrobot la parola altraparola...dimmi se è quello che ha richiesto...
ciau!

anche io avevo fatto così, ma io intendo una parola che sia contenuta in una frase! tipo se la parola è "cavolo" e scrivo " ieri sera ho mangiato un cavolo" e premo il commandbutton su txtrobot deve uscire "Un cavolo? Ti piacciono?" tuttò ciò innescato solamente dalla parola cavolo.. non so se mi spiego...

e al programma mica possiamo dare l'intelligenza di riconoscere quali sono i sostantivi e quali no...a meno che non glieli memorizzi tutti!!! puoi memorizzare un numero finito di parole e lavorare su quelle...

si dovrebbe lavorare parola per parola racchiudendo le lettere comprese tra spazi. il problema e che succede se c'è più di una parola codificante?
cmq

[b]
private sub cmd_click()
for x = 1 to len(txtcmd.text)
lettera = mid(textcmd.text,x,1)
if not lettera = " " then 
parola = parola & lettera
else
call leggiparola
parola = ""
end if
next x
call leggiparola [/b]   <--mi ero dimenticato che l'ultima parola non ha spazi
[b]
end sub

private sub leggiparola()
if parola = "grazie" then
txtrobot.text = "prego"
elseif parola = "blabla"
txtrobot= "blabla cosa?"
end if
end sub

[b] [/b]

ci ho ripensato c'è una soluzione anche a questo problema basta incolonnare

[edit]non si incolonna in una textbox si scrive solo di seguito...[/edit]

private sub cmd_click()
for x = 1 to len(txtcmd.text)
lettera = mid(textcmd.text,x,1)
if not lettera = " " then
parola = parola & lettera
else
call leggiparola
parola = ""
end if
next x
call leggiparola
end sub

private sub leggiparola()
if parola = "grazie" then
txtrobot.text = [b]txtrobot.text &[/b] "prego"
elseif parola = "blabla"
txtrobot.text = [b]txtrobot.text &[/b] "blabla cosa?"
end if
end sub

[]
ehi p4p3r0g4 ho visto che sei normal user...ma perchè non fai richiesta di diventare membro???
[/]

non è che io non faccia richiesta...
nessuno mi risponde!!!