ENCONTRAR TEXTOS EM ARQUIVO

GNCNET 23/05/2015 22:17:48
#446954

Pessoal, preciso encontrar os dados que estão entre estas strings em uma página da web, entretanto, com esta função, só consigo encontrar o primeiro dado.
O [Ô]Campo_encontrado[Ô] sempre fica o mesmo.

Dim inicio As String
Dim fim As String
Dim Campo_encontrado As String
Dim Nome_produto As String
Dim Fabricante As String
Dim Expediente As String
Dim Data_de_fabricacao As String

For i = 0 To 3
inicio = InStr(RichTextBox1.Text, [Ô]<td height=[ô]35px[ô]>[Ô])
fim = InStr(RichTextBox1.Text, [Ô]</td>[Ô])
Campo_encontrado = Mid(RichTextBox1.Text, inicio, fim - inicio)

If i = 0 Then Nome_produto = Campo_encontrado
If i = 1 Then Fabricante = Campo_encontrado
If i = 2 Then Expediente = Campo_encontrado
If i = 3 Then Data_de_fabricacao = Campo_encontrado

Next i