Aquí tienes una función que nosotros utilizamos y funciona muy bien. Saludos
<%
sub coma(texto)
texto=Cstr(texto)
largo=len(texto)
resto=texto
for i=1 to largo
texto2= right(resto,1)
texto1 = texto2 & texto1
resto =left(resto, largo-i)
texto2 = right(resto,i)
if (i mod 3) = 0 and i <> largo then
texto1= "," & texto1
end if
next
Response.write texto1 & ".-"
end sub %>