Imports System.Text.RegularExpressions
Dim MatchVale As String = String.Empty
Dim myrule As New
Regex("(^(\w*://)?(\w*\.)+(com.cn|com|net.cn|net|org.cn|org|gov.cn|gov|cn|mobi|me|info|name|biz|cc|tv|asia|hk|网络|公司|中国)).*$")
Dim m As Match = myrule.Match(url)
MatchVale = m.Groups(1).ToString
Return MatchVale