如果你以前没有使用过RegExp对象，你需要下载VBScript 5.0 DLL

如果你以前没有使用过RegExp对象，你需要下载VBScript 5.0 DLL，地址为： 
    http://www.microsoft.com/msdownload/vbscript/scripting.asp 
    一旦你安装了VBScript的 DLL, Microsoft VBScript Regular Expressions选项就出现在Visual Basic的参考（References）对话框中 
下面的代码将校验文本框Text1中的电子邮件地址。 
    Dim myReg As RegExp 
     
    Private Sub Form_Load() 
    Set myReg = New RegExp 
    myReg.IgnoreCase = True 
    myReg.Pattern = "^[\w-\.]+@\w+\.\w+$" 
    End Sub 
     
    Private Sub Text1_Validate(Cancel As Boolean) 
    Cancel = Not myReg.Test(Text1) 
    End Sub 
    这里，Pattern属性接受任意数目的出现在@前后的数字、下划线、字母、“-”或“.” 。