Com dados na célula A1 , em outra célula:
=--MID(A1,FIND("(",A1)+1,FIND(" ",A1,FIND("(",A1)+1)-(FIND("(",A1)+1))
ÉigualmentefácilnoVBA:
SubGetNum()DimvAsString,NAsLongv=Range("A1").Value
N = CLng(Split(Split(v, "(")(1), " ")(0))
MsgBox N
End Sub