Thanks

I can see why the code change is needed but the replacement code has an ‘issue’ in it, that is the lcRetVal is not set to Local. Really there is no need for a return variable at all. Here is the solution that I recommend:

FUNCTION CharValue( tuExpression )
RETURN IIF( VARTYPE( tuexpression ) == [O], ;
            [],;
            TRANSFORM( tuExpression, [] ) )

Here is the test code that I used:

clear
? CharValue( [A] ) + [Text]
? CharValue( 123.57 )+ [Text]
? CharValue( DATE( ) )+ [Text]
oForm = NEWOBJECT( [Form] )
? CharValue( oForm )+ [Text]
? CharValue( .Null. )+ [Text]

I am about follow the other instructions you gave, thanks for the info, and I will keep you informed on my progress.

Anthony