Retrouver un mot dans une chaine

Réponse acceptée !
utilise les espaces...

dim p as integer
p = instr(" " & Tastring & " " , TonMot)

if p>0 then msgbox(mid$(tastring,p+1, len(Tonmot)))

bon, il faut rajouter un test avec une virgule apres...

Réponse acceptée !
Sinon, tu as une autre méthode si ton texte ne fait pas des kilomètres. Le split :

dim t() as string
t = split(TonTexte," ")

et tu l'interroges comme ça :
dim i as integer
for i = 0 to ubound(t)
   if t(i) like TonMot & "*" then
      msgbox "trouvé"
      exit for
   endif
next

tu peux même compter le nombre de fois que tu le trouves
dim i as integer
dim cpt as integer
cpt = 0
for i = 0 to ubound(t)
   if t(i) like TonMot & "*" then
      cpt=cpt +1
   endif
next

j'utilise like au lieu de =, comme ça tu peux aussi trouver les les "commençant par".

et puis, si les ponctuations te gènent, avant tu fais :
TonTexte = replace(TonTexte, ".","")
TonTexte = replace(TonTexte, ",","")
TonTexte = replace(TonTexte, "!","")
TonTexte = replace(TonTexte, "?","")
etc....

encore plus loin, quand tu effaces un "!" par exemple dans "hue ! au galop" il te reste un double espace que tu peux remplacer par 1 seul :
TonTexte = replace(TonTexte, "  "," ")


Cordialement, CanisLupus