Your function should return a value, and you have not told the compiler what type of value (integer, string etc.) it is returning, so the compiler is assuming yoyuu will return an object.
Depending on the setting you have, this will be a warning or an error
to get rid of the warning, ad As xxx to your function
e,g,
Private Function FindVal(ByVal ID, ByVal Desig) As integer