Проверить, одинаковое ли число открывающихся и закрывающихся скобок в данной строке - VB

Private Sub Command1_Click()
Picture1.Cls
str1 = Text1
char1 = "("
char2 = ")"
k = 0
For i = 1 To Len(str1)
    If Mid(str1, i, 1) = char1 Then k = k + 1
    If Mid(str1, i, 1) = char2 Then k = k - 1
 
    if k<0 then Picture1.Print "Вы сумели закрыть больше скобок, чем открыли! А это не понравится ни одному компилятору!": exit sub
 
Next
If k > 0 Then Picture1.Print "больше открывающихся"
If k < 0 Then Picture1.Print "больше закрывающихся"
If k = 0 Then Picture1.Print "равно"
End Sub