Function Парсинг(строка As String, Optional место As String) As Variant
       Dim prov As Boolean 'Переменная, служащая для проверки строки по шаблону
    Dim myR As RegExp 'Объктная переменная для создания шаблона с регулярным выражением
    Dim myCollection As MatchCollection
    Dim myMatch As Match
'Начало кода
Set myR = New RegExp
myR.Global = True
myR.IgnoreCase = True
myR.Pattern = "\d{1,4}\.*\d*(_| )?(бис|упл|ур|у|р)?[^а-яё]?(\(|_)?(расш)?\)?" 'шаблон регулярного выражения
prov = myR.Test(строка)
    If prov Then
        Set myCollection = myR.Execute(строка)
    Else
    Парсинг = "Объект не определен"
        Exit Function
    End If
            x = myCollection(0)
            x = LCase(x)
            x = Replace(x, "_", "")
            x = Replace(x, "(", "")
            x = Replace(x, " ", "")
                        
Парсинг = x
End Function