[VB6] controllo parole stringa

[Mabi]

Vorrei fare un'avventura testuale e mi servirebbe il codice per dire:
"Se è presente questo verbo e questa parola nella stringa fai questo"

Dim Stringa As String
Dim Parola As String
Dim Verbo As String

If (InStr(1, Stringa, Parola) > 0) And _
   (InStr(1, Stringa, Verbo) > 0) Then
  'fai questo
End If

Le procedure le puoi richiamare inserendo il nome della procedura dopo la parola Call.