Sub Макрос1()
adres = "трпр 142670 Рио Де Жанэйро"
MsgBox Index(adres)
End Sub

Function Index(ByVal adres As String) As String
Index = ""
For i =  1  To Len(adres)
    ind = Trim(Mid(adres, i,  6 ))
    If IsNumeric(ind) And Len(ind) =  6  Then
        Index = ind
        Exit For
    End If
Next
End Function

Sub s_Test()
  Debug.Print f_FindPostIndex(" ddd143980/ ff gg")
End Sub

Function f_FindPostIndex(v_SearchString) As Boolean
  Dim v_RegExp As Object
  Set v_RegExp = CreateObject("vbscript.regexp")
  
  With v_RegExp
    .Pattern = "[0-9]{6}"
    If .Execute(v_SearchString).Count <>  0  Then f_FindPostIndex = True
  End With
End Function

adres Like "* [1-9]##### *"

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы