Даны две строки: S1 и S2. Проверить, содержится ли строка S2 в строке S1. Если да, то вывести номер позиции, начиная с которой S2 содержится в S1, если нет, то вывести 0.

Пример реализации в VBA ExcelSub poisk()S1 = Cells(3, 6)S2 = Cells(4, 2)b = Mid(S1, 1, 1)L1 = Len(S1)N = 0L2 = Len(S2)For i = 1 To L2    a = Mid(S2, i, 1)    If a = b Then        SS = Mid(S2, i, L1)        If SS = S1 Then            N = i            Exit For        End If    End IfNext iCells(3, 10) = NEnd Sub