Unire regexp verifica con replace

[Fichico]

ciao
ho queste due funzioni, che utilizzo per ripulire il nome dei file in modo che i caratteri non consentiti nel percorso di un mappath siano ripuliti

In particolare, nel mappath non possono esser presenti questi caratteri: *?<>,:;'"]\/

ho quindi questa funzione con regexp che verifica l'eventuakle presenza dei caratteri

Function ValidaPath(campo)
	Dim objRegExp
	Set objRegExp = New RegExp
	objRegExp.Pattern = "^[^\*\?<>,:;'""""\]\\\/]*$"
	objRegExp.IgnoreCase = True
	ValidaPath = objRegExp.Test(campo)
End Function

e questa che fa il replace qualora la precedente dia false

Function FormattaPath(campo)
	campo = replace(campo, "*", "")
	campo = replace(campo, "?", "")
	campo = replace(campo, "<", "")
	campo = replace(campo, ">", "")
	campo = replace(campo, ",", "")
	campo = replace(campo, ":", "")
	campo = replace(campo, ";", "")
	campo = replace(campo, "'", "")
	campo = replace(campo, """", "")
	campo = replace(campo, "]", "")
	campo = replace(campo, "/", "")
	campo = replace(campo, "\", "")
	
	FormattaPath = campo
End Function

come posso fare in modo di avere una function unica, ovvero con dentro la regexp che verifica se sono presenti caratteri non consentiti e, allo stesso tempo, li sostituisce con nulla?

[Fichico]

non l'ho povata ma intendevo fare un'unica function come ad esempio questa che utilizzo per pulire stringhe da eventuali tag html:

Function RimuoviHtml(txt)
	Set objRE = createObject("VBScript.RegExp")
	objRE.Pattern = "\<[^\>]*\>"
	objRE.Global = true
	objRE.IgnoreCase = true
	RimuoviHtml = objRE.Replace(txt,"")
End Function