RegExp fråga?

hej...
håller på att lära mig regexp nu...
men det cpar sig när jag försöker testa mina kunskaper...

misstänker att det är nåt fel med min pattern.
vad tror ni?

<%
Dim strText
strText = request.form("form")
if strText <> "" Then

	Dim objRegExp, strCheck
	Set objRegExp = New RegExp
	
		objRegExp.IgnoreCase = True
		objRegExp.Global = True
		objRegExp.Pattern = "[a-zA-Z_0-9]"
	
	strCheck = objRegExp.test(strText)
	Set objRegExp = Nothing    
	    
	If Not strCheck then 
		response.write strCheck & " fel!"
	Else
		Response.write "det funkade " & strCheck
	End if
Else
%>
<form method="POST" action="<%=request.servervariables("script_name")%>">	
	<p><input type="text" name="form" size="20">
	<input type="submit" value="Skicka" name="B1"></p>
</form>
<%
End if
%>

Tacksam för svar...

/ Mikul