El objeto RegExp, disponible para scripts ASP, VBScript, y JScript entre otros, es injustamente poco conocido, a pesar de ser tremendamente útil.

Nos permite manipular cadenas usando expresiones regulares con sintaxis Perl.

No soy un experto en expresiones regulares, aún así, esta clase nos puede solucionar rápidamente muchos problemas, que usando por ejemplo, Replace nos llevaría un buen rato.

Su uso es tan sencillo como:

<%
Option Explicit
Dim sCadena
Dim oRegular

Set oRegular=New RegExp
With oRegular
.Global=True
.Pattern="(.\d{4})"
sCadena=.Replace(sCadena, ".0000")
End With
Set oRegular=Nothing
%>

El código anterior, buscaría dentro de sCadena, cualquier ocurrencia de un punto seguido de 4 dígitos, y lo reemplazaría por el literal .0000.