Private Sub Form_Load()
MsgBox CStr(IsExp("1+1*2*(2+3)"))
MsgBox CStr(IsExp("1+1*2*(2+3)1"))
End Sub
Private Function IsExp(strExp As String) As Boolean
Dim o As New ScriptControl
On Error Resume Next
o.Language = "VBScript"
o.Eval strExp
IsExp = (o.Error.Number = 0)
End Function