...(21, Fred)"
iStart = InStrRev(s, "(", -1, vbTextCompare)
If iStart Then
iEnd = InStr(iStart, s, ")", vbTextCompare)
MsgBox Mid(s, iStart, (iEnd - iStart) + 1)
Else
MsgBox "No ( found"
End If
_________________
Bixarrio
e = m * (c ^ 2)