use this:

Code:
in the Ismissing function just add this:


if isnumeric(a) then

a=     cstr(a)
end if

'further your code