io ho creato un metodo molto casareccio :

Virg=instr(h,",")
if Virg > 0 then
msgbox "il numero" & h & "non è intero" 'h è una variabile qualsiasi
else
msgbox "il numero" & h & "è intero" 'h è una variabile qualsiasi
end if