Create custom function to exceed 7 nested If functions in Excel 2003/XP/2000/97

Hi All,
I have used the below function called CalcValue in VBA to test more than 7 conditions, and each condition if true will return a different value.
This function accepts as a parameter a cell and returns a value based on a complex IF THEN ELSE statement.

Macro Code:
The macro code looks like this:

Please Login or Register  to view this content.

My question is, how do I set the value returns to "other words" if all the conditions are tested? Please refer to my attached file for better understanding. Thanks a million

Hi royUK,
I am terribly sorry to confuse you due to my poor explanation. What I want to do is after the "good","nice","fast","slow","long" are tested and return the value correctly. But I have other words, maybe "A" to be returned as it is as "A" then "B" returns to "B", "C" to "C". I hope this clears the confussion.Thanks again

Hi royUK,
It works amazingly,really thankful for the great help.