Controllo campo

[Freedom]

Ciao,

come posso controllare che in un campo del form si inserisca SOLO testo con caratteri ALFANUMERICI, senza cioè: spazi, caratteri speciali, accentati, tag HTML, ecc...

[Fichico]

Function ValidaCampo(campo)
    Dim objRegExp
    Set objRegExp = New RegExp
    objRegExp.Pattern = "^[a-zA-Z0-9]$"
    objRegExp.IgnoreCase = True
    ValidaAlfanumerico = objRegExp.Test(campo)
End Function

if not(ValidaCampo(tuo_campo) then
   errore
else
   NO errore
end if