dim TamSay as string
Tamsay=",1,2,3,4...…..,100,"
if instr(Tamsay, "," & int(sayınız) & ",")>0 then
fonksiyonu Çağı
replace(Tamsay, "," & int(sayınız) & ",",",")
end if
şöyle yapabilirsiniz