Originariamente inviato da imente
codice:
objRegExp.Pattern = "^[\w ']{3,}$"
se vuoi limitare la lunghezza massima fai

codice:
objRegExp.Pattern = "^[\w ']{3,15}$"
ho immaginato lunghezza minima 3 e lunghezza massima 15


OTTIMO

Se posso sdebitarmi un minimo, e sempre che tu già non lo sappia, ho trovato questa stringa per controllare le e-mail (che ho provato e sembra funzionare):




' Con questo verifico che abbia inserito una e-mail valida :-)

Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True

objRegExp.Pattern = "(\w[-._\w]*\w@\w[-._\w]*\w\.\w{2,3})"

IF objRegExp.test(lemail) THEN
' Ok, email accettata..
ELSE
' Oops, e-mail sbagliata!
END IF