Получить данные между скобок

Function GetNormalNeme(r Range) As Variant
GetNormalNeme =  InStr(1, r, "(", vbTextCompare)
GetNormalNeme = Mid(r, GetNormalNeme + 1, Len(r) - InStr(1, r,    "(",  vbTextCompare)  - 1)
End Function