function returning blank on running

I have cell H1 with certain values as "10,1,7,8" dynamically, another cell A1 calls the function as =FindGrade(H1,"Books")...when the values of e.g B is string like "2,11" then it shud check for both 2 and 11 existing in the cell H1 value also but its not working...the result cell is blank... I m trying to get result of function into cell but the cell is always blank

idea is to check the string in chkcell with each value in A,B,C,D etc and generate the new value called Result and populate the A1 with it.

my code is

Please Login or Register  to view this content.

in A1 i want it to be "A2" its shud check 10,1,7,8 first with each values in A,B,C,D1,D2,D3 generate the string...in this case it ill be A2

ok i corrected the chkevent ....but still its not working