tstr= "100041122242300033334564780000490"
    Print tstr

    Print "Strleft  " Strleft( tstr, "4",5,2)
    Print "Strright " Strright  ( tstr, "4",5,4)

Функция просматривает указанную строку-источник справа налево в поиске подстроки-образца и возвращает подстроку из символов, находящихся СПРАВА от найденного образца.

Функция просматривает указанную строку-источник слева направо в поиске подстроки-образца и возвращает подстроку из символов, находящихся СПРАВА от найденного образца.

Возврат подстроки из символов СЛЕВА от найденного образца.

Функция просматривает указанную строку-источник справа налево в поиске подстроки-образца и возвращает подстроку из символов, находящихся слева от найденного образца.

По факту - Справа на лево - и возврат Влево!

StrLeft ( expression , pattern , compMethod , occurrences  )

Left (string, n) – первые n символов строки.


Right (string, n) – последние n символов.


Instr ([start,] string, substring) – ищет substring в строке, возвращает позицию.
s = "Hello LotusScript"
pos = Instr(s, "Lotus")   ' ищем "Lotus"
Messagebox pos   ' результат: 7



Mid (string, start [, length]) – подстрока "string" начиная с позиции start, длиной length.
Пример.
Print Mid$("InterTrust", 1,5) ' Выводит Inter
Print Mid$("InterTrust", 6) ' Выводит Trust

Еще есть Третий параметр "Количество вхождений, которые необходимо сопоставить".
ПО умолчанию - 1. Первое вхождение.