Запарка со сравнением текста

[BRcr]

Спасибо огромное вам обоим! Из ваших постов я почерпнул массу полезной информации.

2 Aent: само собой все передаваемые функции аргументы в итоге будут использованы, это я так, укоротил маленько. А копируя в теле функции переданную строчку, я всего лишь оставляю себе возможность сравнения данных и результата.
2 SAS888: откровенно говоря, сколько я не перечитывал справки по InStr() и Mid(), так и не смог уразуметь, где ж там ошибка???

res = InStr(signs1, Mid(text, i, 1)) > 0

В посте ранее Aent использовал именно такое написание и никакой ошибки в нем я так и не узрел.
Причем, если закомментировать эту строчку и res выставить в true, выскакивает ошибка на следующей строчке.

 text = Left(text, i - 1) & Right(text, Len(text) - i)

А если и вовсе удалить весь цикл

  If s1 Then
...
End If

то никаких ошибок не вылазит, функция возвращает переданное ей в нетронутом виде, и, следовательно, все объявления сделаны верно. От таких поворотов у меня уже крыша начинает свистеть, чесслово!

[SAS888]

Все верно. Вы хорошо себе представляете, как работает цикл For...Next, если в теле циклы изменяется переменная счетчика цикла (в данном случае i)? Этого делать не следует. Ошибка в строке Вашего кода

text = Left(text, i - 1) & Right(text, Len(text) - i)

возникает тогда, когда Len(text) становится меньше, чем i-1. Проверьте.
P.S. Вам уже привели несколько более рациональных и корректно работающих примеров.
P.P.S

Сообщение от Aent

...вы путаете функцию replace с методом.

Да, конечно. Спасибо за замечание.

[BRcr]

О, пардон, умолкаю.

В моем сознании наступила ясность чудесного зимнего рассвета, когда иней на веточках и пушистых иголках радостно поблескивает в лучах восходящего солнца и на всем необъятном небосводе ни облачка... Еще раз вам спасибо.

В мире есть еще много граблей, на которые не ступала нога человека… пойду поищу!