VBScript 正規表現で入力された値を判定する

質問

初めまして。現在VBScriptでプログラムを組んでいるのですが、
どうしても詰まってしまいましたので、ご教授お願いします。

内容は、textboxに入力された値(textbox)を正規表現を用いて
半角数字のみtrue、数字以外の文字が含まれている場合はfalseを返したいと思っています。

if moji_check(textbox)=false then response.write "数字以外が入力されました。<br>"
　else
　　　　　Session("hensuu") = textbox
end if

function moji_check(strLen)
if strLen.pattern("[^0-9]") then
moji_check = true
else
moji_check = false
end if
end function

という風に書いてみたのですが、実行してみると
if strLen.pattern("[^0-9]") then　部分のstrLenがオブジェクトが無いと
エラーが吐かれてしまいます。
このような場合の対処法を調べてみたのですが、プログラミング自体が不慣れなため
わかりませんでした。
よろしくお願いいたします。

回答No.1

redfox63

正規表現用のRegEx型のオブジェクトを作成してチェックしましょう

function moji_check(strLen)
　　dim objEx as New RegExp
　　objEx.Pattern = "[^0-9]"
　　moji_check = not objExp.Test( strLen )
end function
といった具合でしょう