I've narrowed it down with this change:

Dim a, b, c As String

a = "("
b = "?????"
c = ")"
FindWhat = a & b & c

...and changed the line:

Pos = InStr(ActiveCell.Value, a)

But then I'll have to know how many digits in the number beforehand.