Public Function GetNumber(ByVal this As String) As String
    Dim pReg As Object
    Set pReg = CreateObject("VBScript.RegExp"): pReg.Pattern = "\d+-\d+-\d+"
    GetNumber = pReg.Execute(this)(0).Value
End Function

Function yyy$(t$)
 With CreateObject("VBScript.RegExp")
        .Pattern = "от (\d+\.\d+\.\d+)"
        If .test(t) Then yyy = .Execute(t)(0).Submatches(0)
    End With
End Function

Function vvv2$(t$)
    Dim t1$
With CreateObject("VBScript.RegExp"): .Pattern = " дог(овору аренды |\.|оворам)(.+)"
   If .test(t) Then t1 = .Execute(t)(0).Submatches(1)
 End With
   vvv2 = Split(t1, "от")(0)
End Function

Function НомерДоговора(Text As String) As String
    Dim Obj As Object, I As Long
    Text = Application.WorksheetFunction.Trim(Text)
    With CreateObject("VBScript.RegExp")
        .IgnoreCase = True
        .Pattern = "дог.+?(\d.*?) (от|за)"
        If .test(Text) Then НомерДоговора = .Execute(Text)(0).submatches(0) Else Exit Function
        .Pattern = "\d{2}\.\d{2}\.\d{2,4}\D+"
        If .test(НомерДоговора) Then НомерДоговора = .Replace(НомерДоговора, "")
    End With
End Function

Function iNumber(cell$)
 With CreateObject("VBScript.RegExp")
     .Global = True
     .Pattern = "№\s?(.+)(?= от)"
     If .Test(cell) Then
       iNumber = .Execute(cell)(0).SubMatches(0)
     Else
       iNumber = "нет"
     End If
 End With
End Function

Function iDate(cell$)
 With CreateObject("VBScript.RegExp")
 Dim temp
     .Global = True
     .Pattern = "от ((\d{2}\.\d{2}\.)(\d{2,4}))"
     If .Test(cell) Then
       temp = .Execute(cell)(0).SubMatches(0)
       If Len(.Execute(cell)(0).SubMatches(2)) = 2 Then
       .Pattern = "(\d{2}\.\d{2}\.)(\d{2,4})"
         iDate = .Replace(temp, "$120$2")
       Else
         iDate = .Replace(temp, "$1$2")
       End If
     Else
       iDate = "нет"
     End If
 End With
End Function