Una funcioncita que chequea que todo sea ok (solo acepta letras y numeros)
Código:
function isValidData(esto)
isValidData = false
if len(esto) > 0 then
dim cExp
set cExp = new RegExp
with cExp
.Pattern = "^[a-zA-Z0-9]{3,8}$"
.IgnoreCase = True
.Global = True
end with
isValidData = cExp.test(esto)
end if
end function
Espero te sirva :)
Un saludo