Function BeforeSkobki(cell As String) As String
 With CreateObject("VBScript.RegExp")
   .Pattern = "[а-я\./-]+\s(?=\()"
     If .test(cell) Then
       BeforeSkobki = .Execute(cell)(0)
     End If
 End With
End Function

Function iSkobki(cell As String) As String
 With CreateObject("VBScript.RegExp")
   .Pattern = "\((.+?)\)"
     If .test(cell) Then
       iSkobki = .Execute(cell)(0).Submatches(0)
     End If
 End With
End Function

Function Tkan(cell As String) As String
 With CreateObject("VBScript.RegExp")
   .Pattern = "[а-я\./-]+\s(?=\()"
     If .test(cell) Then
       Tkan = Left(cell, .Execute(cell)(0).FirstIndex)
     End If
 End With
End Function

Function iWidth(cell As String) As Integer
 With CreateObject("VBScript.RegExp")
   .Pattern = "\d+(?=см)"
     If .test(cell) Then
       iWidth = .Execute(cell)(0)
     End If
 End With
End Function