how to seperate comments inside the paranthesis?

i have a worksheet with imported data. it is a chess game notation with comments. is it possible to separate the comments from the moves? the comment part comes in parenthesis. whatever comes in paranthesis has to be separated to the next column.
I have given an attachment in which on sheet 1 , is the raw data. on sheet2 i have shown the result.the sheet has to be so edited that it should look nice.since i have separated the comments manually it does'nt look nice.I have separated the comments from the first table of contents only.thanks

btw, i would like to ask you one thing.

i usually don't use the buttons. instead i go for searching the code in the macro dialog. did this time also. but i could not find it there in the list of codes. i even changed the word"private" to option explicit with no positive result. what should i really do to run the macro? i always want that macro is named in the dialog when i click on othe macro-code groups.thanks

Hi..

This is maybe something like what you're after..

Regex patterns are definitely not my strong point.. so a better solution will probably be available.

But.. with 15 views of your attached sample and no help yet.. this is better than nothing..

Private Sub CommandButton1_Click()
    Dim objRegex, n, x, Rslt
    Set objRegex = CreateObject("vbscript.regexp")
    With objRegex
        .MultiLine = False
        .Global = True
        .IgnoreCase = False
        .Pattern = "\{(.*?)\}"
        For Each myarea In Range("B1:B" & Range("B" & Rows.Count).End(xlUp).Row).SpecialCells(2).Areas
            myarea.Select
            x = Join(Application.Transpose(myarea.Value), " ")
            Set myMatches = .Execute(x)
            For Each n In myMatches
                Rslt = Rslt & vbNewLine & n
            Next n
            If myMatches.Count > 0 Then
                myarea.Offset(, 1).Resize(myMatches.Count).Value = Application.Transpose(Split(Rslt, vbLf))
                Rslt = ""
            End If
        Next myarea
    End With
End Sub

thanks Apo for the direction. i did this and it works in that way.

But please see the attached file. there are two sheets. sheet 2 is the old one in which the code works nicely. but on sheet1 it is not working gives( runtime error 13 type mismatch). what may be the reason? can you explain?. is it possible to edit the macro so that it can handle both the sheets?