Регулярные выражения для Excel для приведение типа томов архива Транснефть к нормальному виду

macros.vbs

Public Function RegExpExtract(Text As String, Optional Item As Integer = 1) As String
    On Error GoTo ErrHandl
    Set regex = CreateObject("VBScript.RegExp")
    regex.Pattern = "Г\.0\.0000\.0002-И-ЦУП ВСТО\/ГТП-27\.\d\d\d\-.{1,4}"
    regex.Global = True
    If regex.Test(Text) Then
        Set matches = regex.Execute(Text)
        RegExpExtract = matches.Item(Item - 1)
        Exit Function
    End If
ErrHandl:
    RegExpExtract = CVErr(xlErrValue)
End Function