Tratalo como un string, parsea tu cadena y cada 3 caracteres agrega un punto.
A ver que hace esto, no lo he probado
Código:
<%
cadena = "123456789"
cadena2 = ""
For i = 1 to len(cadena)
If i mod 3 = 0 Then
cadena2 = cadena2 & "."
End If
cadena2 = cadena2 & mid(cadena, i, 1)
Next
%>
Salu2,