Actually it's not that bad - six lines of code. Since we're all posting code solutions at one time or another, I don't see why not this time. It might help someone else in the future even if the OP doesn't come back. While it works, it probably needs additional code in order to make it work with some other process such as a form, report or update query.
Code:
Function ParensText(strIn As String) As String
Dim intPos1 As Integer, intpos2 As Integer
intPos1 = InStr(strIn, "(")
intpos2 = InStrRev(strIn, ")")
ParensText = Replace(strIn, Mid(strIn, intPos1, intpos2 - intPos1 + 2), "")
Debug.Print ParensText
End Function
called like
parenstext "JTDM (937.AXN1B, 937.BXN1B) Trident"