VBA + доступ в сеть

Формулировка задачи:

Пожалуйста, помогите написать такую программу . Сразу скажу, с доступом в интернет никогда не рботал, поэтому не знаю с чего и начать. В первое поле вводится адрес сайта. Во второе поле вводится слово для поиска, в третьем поле выводится результат - количество раз, которое это слово встречается на сайте. Спасибо!

Решение задачи: «VBA + доступ в сеть»

textual
                            Листинг программы 
                        

                            '{=====Событие генерируется когда нам приходят данные======}
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Winsock1.GetData HTMLCode                   'Получаем данные и помещаем их в переменную
    IP.Text = CutIP(HTMLCode)
End Sub
                        