با سلام
این کد در اجرا مشکل overflow میدهد. لطفا راهنمایی بفرمایید
dim ID as single
if ID mod 1000000000 = 0 then x=1

(مثلا ID=10200000000)