Thank you Clunietp but that was not my problem but. I did find a way to to do it if anyone wants to compare this code to that above!

strCalc = txtInput.Text
intCurpos = InStr(intCurpos, strCalc, "(", vbTextCompare)
Do
intTempPar = intPar
intPar = InStr(intPar + 1, strCalc, ")", vbTextCompare)
Loop Until intPar = 0
strTemp = Mid(strCalc, intCurpos, intTempPar - intCurpos + 1)