Stoppe ugyldige tegn med RegExp

Jeg har fundet frem til en funktion, jeg har ombygget lidt til at skulle kunne validere om en bruger skriver ugyldige tegn, når denne vælger et subdomæne ID. Men funktonen returnerer altid false. Nogen der har løsningen? Jeg vil altså undgå at brugere vælger ugyldige internetgældende tegn.

Function ValidateSubDomID(strSubDomID)
  Dim re
  Set re = new RegExp

  re.IgnoreCase = true
  re.global = false

  re.Pattern = "^(?=.*?\d)[a-z][a-z0-9]{5,7}$"
  're.Pattern = "a-zA-Z0-9_"
  're.Pattern = "\\\\([a-zA-Z0-9_]*)\\.(doc|pdf|gif|jpg)$"

  ValidateSubDomID = re.Test(strSubDomID)
End Function

response.Write ValidateSubDomID(request.form("FirmaID"))
response.end