Here is the question!

ok if txtinput.text = 2+(4/(2*6))
would this statement return that the value of strtemp = (4/(2*6))

strCalc = txtInput.Text
intCurpos = InStr(intCurpos, "(", strCalc, vbTextCompare)
Do
intTempLastPar = intLastPar
intLastPar = InStr(intLastPar, ")", strCalc, vbTextCompare)
Loop Until InStr(intLastPar, ")", strCalc, vbTextCompare) = 0
strTemp = strCalc - Left$(strCalc, intCurpos - 1) - Right$(strCalc, intLastPar + 1)
MsgBox strTemp



[This message has been edited by ravcam (edited 01-08-2000).]