求个小算法，关于括号的⋯⋯

Private Sub Form_Load()
    Dim s$, isContinue As Boolean
    s = "1+（（（（（3-5））+（（2）））））+2"
    
    Dim s2$, v, i%, j%, i1%, i2%
    MsgBox getMatch(s, 3)
    
    Do
        isContinue = False
        For i = 1 To Len(s)
            If Mid(s, i, 1) = "（" Then
                i1 = getMatch(s, i)
                If Mid(s, i + 1, 1) = "（" Then '两个（
                    i2 = getMatch(s, i + 1)
                    If i1 - i2 = 1 Then
                        s = Left(s, i - 1) & Mid(s, i + 1, i2 - i - 1) & Mid(s, i2 + 1)
                        isContinue = True
                    End If
                ElseIf i1 - i = 2 Then '类似（2）
                    s = Left(s, i - 1) & Mid(s, i + 1, 1) & Mid(s, i + 3)
                    isContinue = True
                End If
            End If
        Next
        If Not isContinue Then Exit Do
    Loop
    MsgBox s
End Sub

Private Function getMatch(strKey$, intPos%) As Integer
    Dim s$, v, i%, j%, intLCount%, intRCount%
    Dim strTmp$
    For i = intPos To Len(strKey)
        strTmp = Mid(strKey, i, 1)
        If strTmp = "（" Then
            intLCount = intLCount + 1
        ElseIf strTmp = "）" Then
            intRCount = intRCount + 1
            If intRCount = intLCount Then
                getMatch = i
                Exit Function
            End If
        End If
    Next
End Function