"The remaining text does not appear to be part of the formula.".

This works if I leave off the Else  "All" at the end;

As soon as I put it back in I get the error message.

NumberVar numEmpID;
NumberVar numRowIdent;
NumberVar numStartOfEmployeeNumbers;
NumberVar numLengthOfFinalString;
StringVar strEmpID;
StringVar strFinalString;

numEmpID := Instr({BAQReportParameter.Filter1}, "EmpID");

If numEmpID <> 0 Then

    numRowIdent := Instr({BAQReportParameter.Filter1}, "RowIdent") +8;
    strEmpID := mid({BAQReportParameter.Filter1}, numEmpID, (numRowIdent - numEmpID));
    numStartOfEmployeeNumbers := Instr(strEmpID, "FieldValue") + 11;
    numLengthOfFinalString := Length(strEmpID) - numStartOfEmployeeNumbers - 25;
    strFinalString := mid(strEmpID, numStartOfEmployeeNumbers, numLengthOfFinalString);
    Replace(strFinalString, "~", ", ");

Else

    "All";


Thanks,

Bill Short

Thanks for the response.  That was it.  Works great now.

Thanks again.

Bill