Вытащить из ячейки определенное количество знаков - VBA

Формулировка задачи:

Подскажите пожалуйста, как вытащить из ячейки только значение из 3 знаков (значение из 3 числовых знаков в массиве неповторяется) пример

массив	правильный ответ
123456789, 123	123
12345678 321 ййй	321
8777лл про
056 ро 123458	056
ццц 444 длдлд	444

Решение задачи: «Вытащить из ячейки определенное количество знаков»

textual
                            Листинг программы 
                        

                            Sub pr()
    Dim x As Range
    With CreateObject("vbscript.regexp")
        .Pattern = "(?:^|\D)\d{3}(?=\D|$)"
        For Each x In Selection
            If .test(x) Then x.Offset(, 1) = CInt(.Execute(x)(0))
        Next
    End With
End Sub
                        