K†ber_punk, интересно это все, но это я смотрел:)

Скорее наверно, "только лишь посмотрел, но не вникал и даже не пробовал."?

Вообще, mid именно в таких случаях и применяется.

скрипты, в которых участвует поиск слов или букв в тексте

Давайте уточним.

Вам необходимо искать точное вхождение подстрок?
Тогда Вам подойдут функции Left, Right, Mid, InStr.

Если Вам необходимо искать строки, которые не просто содержат заданные подстроки, а соответствуют определенному образцу.
В таком случае надо использовать RegExp.

moobi, кстати можно попробовать и так, хорошая идея, только вот он наверно будет читать не посимвольно, а символов от начала:

Set a = CreateObject("Scripting.FileSystemObject")
Set b = a.OpenTextFile("text.txt",1,True)
For i = 1 To Len(b.ReadAll)
If b.Read(i) = "П" Then MsgBox "Буква П"
Next

b.Close

Set b = Nothing

Или же вообще работать не будет

Вот этот действует лучше

a = "Какой-нибудь текст с буквой п"
For i = 1 To Len(a)
    If Mid(m,i,1) = "п" Then MsgBox "Ты ввел П. Это "& i &" символ."
Next

m = "Некая П-строка"
For i=1 to Len(m)
    if Mid(m,i,1)="П" then MsgBox Mid(m,i,1),,i
next

В данном случае, i - это и есть тот самый "индекс элемента в строке-символьном массиве".

Если текст крупный, то он наверняка он будет считывать из файла, тогда возможно просто посимвольное чтение.

Dim fso
Set fso = CreateObject("scripting.filesystemobject")

Set file=fso.OpenTextFile("C:\text.txt",1,True)

Do While Not file.AtEndOfStream
    MsgBox file.Read(1)
Loop

file.Close

m - Массив

For a = 0 To UBound(m)
If m(a) = "П" Then MsgBox m(a)
Next

Это к примеру, просто, если, конечно, можно задать каждую букву под элемент массива.

RegExp

Очередной расточительный бред.
А всё от незнания и неумения рационально пользоваться возможностями языка.
Зачем задействовать экскаватор когда нужно вскопать грядку?
Бухгалтеры, блин… =\

-TOXA-, функции Mid() и InStr()