Dim x As String = "-111+(11+6[kkk]/36^2[kkk])"
Dim n1,n2 As Integer
Dim s1 As String
Do While x.Contains("[")
n1=x.LastIndexOf("[")
n2=x.LastIndexOf("]")
s1=x.SubString(n1,n2-n1+1)
x=x.Replace(s1,"")
Loop
If "+-*/^".Contains(right(x,1)) Then
x=Left(x,x.Length-1)
End If
output.show(Eval(x))