我们可用正规表达式来寻找并替换URL和邮件地址为活动的超级链接。用到的主要函数就是InsertHyperlinks(inText)，语法为：
InsertHyperlinks(inText)
Returns a inText with "URL"
插入（存储）找到的URL和邮件地址。它对URL的判断是以www或http标志开头，对邮件地址的判断是含有@符，够酷吧？好了，看看这个函数的用法：
Function InsertHyperlinks(inText)
Dim objRegExp, strBuf
Dim objMatches, objMatch
Dim Value, ReplaceValue, iStart, iEnd

  strBuf = ""
  iStart = 1
  iEnd = 1
  Set objRegExp = New RegExp

  objRegExp.Pattern = "\b(www|http|\S+@)\S+\b" 
' 判断URLs和emails
  objRegExp.IgnoreCase = True                 
' 设置大小写不敏感.
  objRegExp.Global = True                    
' 全局适用.
  Set objMatches = objRegExp.Execute(inText)
  For Each objMatch in objMatches
    iEnd = objMatch.FirstIndex
    strBuf = strBuf & Mid(inText, iStart, iEnd-iStart+1)
    If InStr(1, objMatch.Value, "@") Then
      strBuf = strBuf & GetHref(objMatch.Value, "EMAIL", "_BLANK")
    Else
      strBuf = strBuf & GetHref(objMatch.Value, "WEB", "_BLANK")
    End If
    iStart = iEnd+objMatch.Length+1
  Next
  strBuf = strBuf & Mid(inText, iStart)
  InsertHyperlinks = strBuf
End Function

Function GetHref(url, urlType, Target)
Dim strBuf

  strBuf = "  If UCase(urlType) = "WEB" Then
    If LCase(Left(url, 3)) = "www" Then
      strBuf = "              Target & """>" & url & ""
    Else
      strBuf = "              Target & """>" & url & ""
    End If
  ElseIf UCase(urlType) = "EMAIL" Then
    strBuf = "            Target & """>" & url & ""
  End If
  GetHref = strBuf
End Function