Function рег_извлечь(t$, p$, Optional n = 1)
    Application.Volatile 'функцию пересчитывать с любым событием
    With CreateObject("VBScript.RegExp") 'подключаем регулярки
        If n > 1 Then .Global = True 'если указан не первый номер вхождения - указываем регулярке находить все вхождения
        .Pattern = p ' берём паттерн регулярки из второго аргумента
        рег_извлечь = .Execute(t)(n - 1) ' извлекаем из первого аргумента по патттерну из второго аргумента вхождение по номеру из третьего аргумента
    End With
End Function


Sub test_рег_извлечь()
For i = 1 To 3
Строка = рег_извлечь("1-23-4", "\d{1,3}", i)
MsgBox Строка
Next
End Sub

.Execute(t)(n - 1)