[matpez]

ti conviene nn utilizzare il metodo Find, almeno la Rich lo ha però magari se tu lo fai standard per tutti e lo metti sotto forma di funzione, se gli passi la stringa e gli altri paraetri che ti interessano viene una cosa carina ed utilizzabile per qlc cosa abbia un testo...cmq guarda se capisci questa routine:

Private Sub Form_Load()

  Dim nLen(2)     As Integer
  Dim sStr(2)     As String
  
  sStr(1) = "mangiato"
  sStr(2) = ","
  
  nLen(1) = InStr(Text1, sStr(1))
  
  If nLen(1) > 0 Then
    nLen(1) = nLen(1) + Len(sStr(1))
    nLen(2) = InStr(nLen(1), Text1, sStr(2))
    MsgBox Mid(Text1, nLen(1), nLen(2) - nLen(1))
  End If
  
End Sub

Text1=contiene il tuo testo nell'esempio
sStr(1)=Prima parola cercata
sStr(2)=Seconda parola cercata
nLen(1)=Contiene l'indice della parola cercata
nLen(2)=Contiene l'indice di fine ricerca