Проверка последовательности скобок на правильность

Function Skobki(s$) As Boolean
Dim i&, c$
With New Collection
  .Add "dummy"
  For i = 1 To Len(s)
    c = Mid$(s, i, 1)
    Select Case c
    Case "(", "[", "{"
      .Add c, Before:=1
    Case ")"
      If .Item(1) = "(" Then .Remove 1 Else GoTo 1
    Case "}"
      If .Item(1) = "{" Then .Remove 1 Else GoTo 1
    Case "]"
      If .Item(1) = "[" Then .Remove 1 Else GoTo 1
    End Select
  Next
  Skobki = .Count = 1
1 Exit Function
End With
End Function

Function Skobki(ByVal s$) As Boolean
Dim i&, j&, c$
On Error GoTo 1
  For i = 1 To Len(s)
    c = Mid$(s, i, 1)
    Select Case c
    Case "(", "[", "{"
      j = j + 1
      Mid$(s, j, 1) = c
    Case ")"
      If Mid$(s, j, 1) = "(" Then j = j - 1 Else Exit For
    Case "}"
      If Mid$(s, j, 1) = "{" Then j = j - 1 Else Exit For
    Case "]"
      If Mid$(s, j, 1) = "[" Then j = j - 1 Else Exit For
    End Select
  Next
  Skobki = j = 0
1 Exit Function
End Function