Спасибо за помощь.
Я добавляю функцию strreverse () в ваш пример. Открытая функция
Public Function Format(sValue, sMask)
Dim iPlaceHolder
Dim sTempValue
Dim sResult
sTempValue = CStr(strreverse(sValue))
sResult = sMask
Do Until InStr(sResult, "#") = 0
iPlaceHolder = InStr(sResult, "#")
sResult = Replace(sResult, "#", Left(sTempValue, 1), 1, 1)
sTempValue = Mid(sTempValue, 2)
If Len(sTempValue) = 0 Then sResult = Left(sResult, iPlaceHolder)
Loop
Format = strreverse(sResult)
End Function
формат response.write (a, "###. ###. ###. ###. ### ") &", 00 "
вывод: 1.000.000,00