In that case, you don't need Split function
Code
-------------------
Function functionseparator(txt As String)
Dim delim, x As Integer, num(4) As Integer, i, ii, Maxnum
delim = Array("+", "/", "*", "^", "-")
For i = LBound(delim) To UBound(delim)
x = InStrRev(txt, delim(i))
num(ii) = x: ii = ii + 1
Next
Maxnum = Application.Max(num)
functionseparator = Right(txt, Len(txt) - Maxnum)
End Functio
-------------------
--
jindo
-----------------------------------------------------------------------
jindon's Profile:
http://www.excelforum.com/member.php...fo&userid=1313
View this thread:
http://www.excelforum.com/showthread.php?threadid=38827