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?