Posição da string de pesquisa VBA

'Position of "DOG" from 8th character, case insensitive
Debug.Print InStr(8, "My Dog is a dog", "DOG", vbTextCompare)   ' 13
VasteMonde