Simplificar Função

Tenho uma função que trata uma string

dim textos as string
sub tratar()
texto = replace("texto", "0", "")
texto = replace("texto", "1", "")
texto = replace("texto", "8", "")
texto = replace("texto", "p", "")
texto = replace("texto", "<>", "")
texto = replace("texto", "4", "")
texto = replace("texto", "11", "")
texto = replace("texto", "33", "")
end sub
Teria como eucriar uma função para simplificar isso ?

Obrigado