Chequeo de parentesis

[pkj]

Ese tipo de fórmulas las resuelve VB usando una referencia al Microsoft Script Control 1.0

Lo de los paréntesis puedes probar algo como esto en el evento LostFocus del textbox:

Código vb:

Private Sub Text1_LostFocus()
  MiraErrores Text1
End Sub
 
Sub MiraErrores(TB As TextBox)
  Dim F As Long
  Dim Contador As Long
  For F = 1 To Len(TB.Text)
    If Mid$(TB.Text, F, 1) = "(" Then Contador = Contador + 1
    If Mid$(TB.Text, F, 1) = ")" Then Contador = Contador - 1
    If Contador < 0 Then Exit For
  Next F
  If Contador <> 0 Then GoTo HayError
  Exit Sub
HayError:
  TB.SelStart = F - 1
  TB.SelLength = 1
  MsgBox "Los paréntesis no están usados correctamente en el TextBox " & TB.Name
End Sub
 

Saludos