позиция строки поиска VBA
'Position of "DOG" from 8th character, case insensitive
Debug.Print InStr(8, "My Dog is a dog", "DOG", vbTextCompare) ' 13
VasteMonde
'Position of "DOG" from 8th character, case insensitive
Debug.Print InStr(8, "My Dog is a dog", "DOG", vbTextCompare) ' 13