А что именно непонятно по первой ссылке, так вообще все подробно разжевали с примерами. Может стоит начать с азов, а не сразу пытаться писать сложные программы?
Почитайте про логические операторы If, Select case, что такое циклы, про переменные и типы данных, что такое процедура и функция и чем отличаются. Думаю, что проблема в незнании элементарной мат, части. Что же касается функции InStr то описание такое
Синтаксис
Код |
---|
Instr ([начало, ]строка1, строка2[, сравнение] ) |
InStr - Возвращает значение типа Variant (Long), определяющее положение первого вхождения одной строки в другую.
Описание параметров
Скрытый текст |
---|
начало - Необязательный аргумент. Числовое выражение, которое задает начальное положение для каждого поиска. Если аргумент не задан, поиск начинается с первого символа. Если аргумент начало содержит значение NULL, возникает ошибка. Если задан аргумент сравнение, аргумент начало является обязательным. строка1 - Обязательный аргумент. Представляет собой строковое выражение, в котором выполняется поиск. строка2 - Обязательный аргумент. Искомое строковое выражение. сравнение - Необязательный аргумент. Указывает тип сравнение строк. Если функция сравнить имеет значение null, возникает ошибка. Если аргумент " Сравнение"опущен, тип сравнения определяется параметром "сравнить ". Укажите допустимый LCID (LocaleID), чтобы использовать в сравнении правила, зависящие от языкового стандарта. |
Аргумент сравнение может принимать следующие значения:
Скрытый текст |
---|
Константа Значение Описание vbUseCompareOption –1 Выполняется сравнение с помощью параметра инструкции Option Compare. vbBinaryCompare 0 Выполняется двоичное сравнение. vbTextCompare 1 Выполняется текстовое сравнение. |
Больше мне добавить нечего.