Modify a "Split" statement

I had help in the past from this forum to make a split statement

                For Each Sh4Cell In Sh4Range
                    If Left(Sh4Cell, 4) = "TA(#" Then
                        sBubbleNumber = Split(Replace(Sh4Cell, "TA(#", "", 5), "-")(0)

The above takes a cell with data like this:
"TA(#31," and splits it like this:
"31"

Now I have another unique split. Using the same example above but modifying the cell data.
"TA({#31," and splits it like this: (Added a "{" )
"{31}" (adding an ending "}" )

Any hints, tips or examples are appreciated.