Hi, that's me again

Lucky must I be because after ploughing throug Excel VBA help I
finally found something.
the non-elegant solution seems to be:

Function nameOfFun(args...)
nameOfFun=Evaluate(strin) where strin= {"#VALUE!" | "#REF!" | "#DIV/
0!" | "#NUM!" |
"#NAME?" | "#NULL!" | "#N/A" } as String is a text representing one of
the above values
End Function

Luckily I suddenly remembered Eval or something like that function
from probably Jscript and it seems to do the trick.

Regards
Tom