Поиск в строке последовательности символов

[Dr.House69]

всем добрый день! Прошу помочь с такой задачей:

Есть строка, в которой клиент пишет адрес. Необходимо из нее вытащить индекс. Сделать это нужно именно макросом.

Насколько я понимаю, тут необходимо работать с отдельными символами, и задавать условие, что подряд идут 6 символов с одной из 10 кодировок (т.е. цифры), чтобы не спутать например с номером дома. Индекс пишется в произвольном месте. Знаний, к сожалению, не хватает по функционалу. Помогите пожалуйста

[AleksandrH]

В Гугле забанили?

Function getZip(addr As String)

Dim allMatches As Object
Dim RE As Object
Set RE = CreateObject("vbscript.regexp")

RE.Pattern = "(\d{6})"
RE.Global = True
RE.IgnoreCase = True

Set allMatches = RE.Execute(addr)

If (allMatches.Count <> 0) Then
    result = allMatches.Item(0).submatches.Item(0)
End If

getZip = result
End Function

[IgorGO]

можем выкинуть:
1. RE.IgnoreCase = True - цифры не имеют регистра
2. RE.Global = True - глобальный поиск ни к чему (в 1 адресе 1 индекс)
3. обьявление allMatches и присвоение ему значения - причина см.п.2
4. оптимизируем записи некоторых операторов
получаем

Function Indx(adr As String) As String
  Dim RE As Object
  Set RE = CreateObject("vbscript.regexp")
  RE.Pattern = "(\d{6})"
  If RE.test(adr) Then Indx = RE.Execute(adr)(0)
End Function

чем пользоваться - решите сами, на одних и тех же данных функции дадут идентичные результаты

[IgorGO]

Dr.House69,
извините, личный вопрос:
зачем Вы пишете

Поиск в строке последовательности символов

если вас интересует: "как выделить почтовый ИНДЕКС из строки с адресом" к чему эта витиеватость в формулировке вопроса? Ваш глобально сформулированный вопрос подтолкнул AleksandrH к глобальному решению)

[svsh2016]

доброго времени суток,можно версию чуть короче,скобки в шаблоне также не нужны

Function Indx1$(adr$)
 With CreateObject("vbscript.regexp"): .Pattern = "\d{6}"
  If .test(adr) Then Indx1 = .Execute(adr)(0)
 End With
End Function

[AleksandrH]

IgorGO, код не мой. Взят с одной из тем по ссылке которую я приводил. Просто решил проверить неужто гугл и не знает как на VBA індекс искать. Оказалось что знает

з.і. А на ютубвидео, по 2-й ссылке результатов поиска гугла, чувак этот код вбивает на своем примере