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