Sub qq()
    Dim txt$, ar, spl, ar1(), i&, j&
    txt = [b1].Value
    ar = Array("индекс1", "индекс2", "индекс3")
    For i = 0 To UBound(ar)
        txt = Replace(txt, ar(i), "|" & ar(i) & "|")
    Next
    spl = Split(txt, "|")
    ReDim ar1(1 To 2, 1 To UBound(spl) \ 2)
    For i = 1 To UBound(spl) Step 2
        j = j + 1
        ar1(1, j) = spl(i)
        ar1(2, j) = spl(i + 1)
    Next
    [b10].Resize(2, UBound(ar1, 2)).Value = ar1
End Sub