От числа удалить буквы

[valerij]

Сообщение от RAN.

заменить строчку

Все!!!!!!
Спасибо!

Всем!
---------------
| ^^пиво^^ \\|""\\_,_
|___________||___|__|)
(@)(@)""*|(@)(@)**(@)

[Казанский]

Можно ориентироваться на цифры после символа "№":

Dim re As Object

Function qq(x$) As Long
If re Is Nothing Then
    Set re = CreateObject("vbscript.regexp")
    re.Pattern = "№\D*(\d+)"
End If
With re.Execute(x)
    If .Count Then qq = .Item(0).submatches(0)
End With
End Function

См. файл

[nerv]

Можно ориентироваться на цифры после символа "№":

[Мое мнение] В данном примере ни на что ориентироваться не нужно, поскольку первая цифра и есть нужная. По этой же причине нет необходимости использовать ключ Global. Ну а IgnoreCase тут вообще ни к чему.

Sub io()
Dim x As Long, z As String
z = "Реализация товаров и услуг № МРЛ00000862 от 03 01 2012"
With CreateObject("VBScript.RegExp")
    .Pattern = "\d+"
    x = CLng(.Execute(z)(0).Value)
End With
MsgBox x
End Sub