Delete some characters

Ahhhh, I thought you just wanted to replace Become to "".....

try

Sub test()
    Dim a, i As Long, temp
    With Range("a2", Range("a" & Rows.Count).End(xlUp))
        a = .Value
        ReDim Preserve a(1 To UBound(a, 1), 1 To 2)
        With CreateObject("VBScript.RegExp")
            .Pattern = "^(\d+),\d+,""([^""\d]+).+"
            For i = 1 To UBound(a, 1)
                temp = a(i, 1)
                If .test(temp) Then
                    a(i, 1) = .Replace(temp, "$1")
                    a(i, 2) = .Replace(temp, "$2")
                End If
            Next
        End With
        .Resize(, 2).Value = a
    End With
End Sub