Вот функция, которая работает чуть иначе, чем я сказал.
Sub x(ByVal s As String)
Dim i As Integer, v As Variant
For i = 1 To Len(s)
If Not IsNumeric(Mid(s, i, 1)) Then Mid(s, i, 1) = " "
Next
For Each v In Split(s, " ")
If Len(v) >= 3 And Len(v) <= 7 Then Debug.Print Val(v)
Next
End SubВот пример ее запуска.
x("111xx22yyyyy88888z444444444444")
111
88888