Prova con

codice:
Dim Aux As String
Aux = contenuto.substring(contenuto.IndexOf("delimitatore1"))
Dim Testo_Da_Cercare As String =  _
Aux.substring(0, Aux.IndexOf("delimitatore2"))
Dovrebbe funzionare