Dim internet As New Net.WebClient 'プロキシーを通してWebにアクセスする場合は以下の2行を復活させプロキシーのアドレスとユーザー名・パスワードを指定してください。 'internet.Proxy = New Net.WebProxy("198.100.99.99", 8080) 'internet.Credentials = New Net.NetworkCredential("rucio", "mypass") Dim html As String = internet.DownloadString("http://www.nifty.com/") internet.Dispose() Dim regop As System.Text.RegularExpressions.RegexOptions = System.Text.RegularExpressions.RegexOptions.IgnoreCase Or System.Text.RegularExpressions.RegexOptions.Singleline Dim pattern As String = "<title.*?>(.*?)</title>" Dim regex As New System.Text.RegularExpressions.Regex(pattern, regop) Dim match As System.Text.RegularExpressions.Match = regex.Match(html) Dim title As String If match.Success Then title = match.Groups(1).Value Else title = "" End If MsgBox(title)