esempio:
codice:
<%
Function ReplaceAllByExpression(StringToExtract, MatchPattern, ReplacementText)
    Dim regEx, CurrentMatch, CurrentMatches
    Set regEx = New RegExp
    regEx.Pattern = MatchPattern
    regEx.IgnoreCase = True
    regEx.Global = True
    regEx.MultiLine = True
    StringToExtract = regEx.Replace(StringToExtract, ReplacementText)
    Set regEx = Nothing
    ReplaceAllByExpression = StringToExtract
End Function


originale = "Io mi chiamo Luca 12345 e vivo in Sardegna."
cerca = "[0-9]{5,}"
metti = "*****"
risultato = ReplaceAllByExpression(originale, cerca, metti)
response.write risultato
%>
In ogni caso mette 5 asterischi, se vuoi invece un numero di asterischi pari al numero di caratteri sostituiti devi adottare un altro approccio