Função: InStr ( )
Devolve a posição da primeira ocorrência de uma string dentro de outra.
Dim ProcuraString, ProcuraChar, MinhaPos
ProcuraString ="XXpXXpXXPXXP" ' String onde procurar
ProcuraChar = "P" ' Procurar por "P"
MinhaPos = Instr(4, ProcuraString, ProcuraChar, 1)
' Uma comparação textual a começar em 4 devolve 6