大家帮我看看，这个程序有什么错误，为什么循环只能搜索一次？？

Question

Text2.Text = Inet1.OpenURL("http://localhost/eqingdao/toplist.asp?page=4&orders=7")
     
     Dim reg As New RegExp
     
     Dim regParttern As String
     
     Dim Matches As MatchCollection
     
     Dim mtch As Match
     
     Dim mailLink As String
     
     mailLink = ""
     
     Set fs = CreateObject("Scripting.FileSystemObject")
     
     Set a = fs.CreateTextFile("c:\testfile.txt", True)
          
        reg.Pattern = "\w+((-\w+)|(\.\w))*\@\w+((\.|-)\w+)*\.\w+[com|cn|com.cn|net|org|cc|uk]{1,6}"
        
        Set Matches = reg.Execute(Text2.Text)
        
        For Each mtch In Matches
        
        mailLink = mailLink + CStr(mtch)
        
        MsgBox mtch
        
        Next mtch
         
        MsgBox mailLink
       
  
     
Set reg = Nothing
     
      
     a.write Text2.Text
主要的目的是搜索特定的字符

Answer 1

搜索Email？正则式对不对？