Fonction InStr

Sub Main

Dim MonTexte$, PosCherche%

   MonTexte = "(aze(rty)uio)"

   posCherche = instr(1, MonTexte, "(rty)", 0)

   if posCherche = 0 _

      then print("""(rty)"" pas trouvé dans """ & MonTexte & """" ) _

      else print("""(rty)"" trouvé dans """ & MonTexte _

         & """ à la position " & posCherche)

End Sub