Function Virgulle(rakamlar)
rakamlar = Cstr(StrReverse(rakamlar))
For i = 1 To Len(rakamlar)
GeciciVeri = Mid(rakamlar,i,1) & GeciciVeri
If i Mod 3 = 0 And Not i = Len(rakamlar) Then GeciciVeri = "," & GeciciVeri
Next
Virgulle = GeciciVeri
End Function

kodunu sayfanın en başına yaz... yoksa fonksiyonlar çalışmaz. nedendir anlamadım ama sayfa ortasına yada sonuna eklenince çalışmıyor. illa en basına eklemeniz gerekiyor.