Как сделать в визуал бейсике ?

Не совсем то, но можно подогнать под себя, суть та же копируем что стоит до </h2>

Option Explicit
Dim HTMLCode As String, PocketLen As Integer 'переменная для хранения кода страницы
Private Sub Command1_Click()
Winsock1.RemotePort = 80
Winsock1.RemoteHost = "ip-whois.net" 'Хост
Winsock1.Connect
End Sub
Function CutIP(HTML As String) As String 'В качестве параметра принимаем код страницы
Dim p1, p2 As Integer
p1 = 1
p1 = InStr(HTML, "Ваш IP:") 'ищем начало нужной строки с IP
If p1 = 0 Then 'если не нашли то сообщим о неудаче
MsgBox "Не удалось получить IP"
Else
HTML = Mid(HTML, p1, Len(HTML) - p1) 'Скопируем выражение "Ваш IP:" и все что стоит после него
p2 = InStr(HTML, "</h2>") 'Ищем конец по тегу
'Возвращаемое значение функции и будет наш IP,на всякий случай сделал Trim
CutIP = Trim(Mid(HTML, 8, p2 - 8))
End If
End Function

Private Sub Winsock1_Close()
Form1.Caption = "Not Connect"
Winsock1.Close
End Sub

Private Sub Winsock1_Connect()
Form1.Caption = "Connected"

'Посылаем запрос на сервер к скрипту ip.php выдающему наш IP
Winsock1.SendData "GET " + "/ip.php" + " HTTP/1.0" + Chr(10) + Chr(10)
End Sub

'Событие генерируется когда нам приходят данные
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Temp As String
PocketLen = PocketLen + bytesTotal 'увеличиваем суммарный объем страницы
Winsock1.GetData Temp 'Получаем данные и помещаем их в переменную
HTMLCode = HTMLCode + Temp 'Дописываем пакет к нашей страницы
'Проверяем вся ли страница принята
'и только тогда в Текстовое поле помещаем наш IP
If PocketLen > 7000 Then IP.Text = CutIP(HTMLCode)
'End If
End Sub

Скорее всего можно, мне кажется это очень очень неудобно. Visual Basic очень не гибкий язык. Попроси кого-нибудь на форуме помочь написать на с# или на php, очень подходящие для этого языки, удачи)