Следить за изменениями на сайте - VB

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

Здравствуйте. Я пока что далек от программирования, но компьютер знаю хорошо. Очень актуально стал вопрос о поиске\написании программки для того чтобы поймать продукт из интернет сайта в наличии. Что требуется - есть сайт (в данном случае ЭТОТ). Знаю что на пару минут, может на пол часа товар появляется на сайте с возможностью добавить его в корзину. Хочу автоматизировать систему мониторинга, использовав какой либо софт, который будет циклически в определенный промежуток времени считывать или как-нибудь иначе понимать что статус товара "Нет в наличии" изменится, и его можно будет заказать. И уведомить как-либо. Вариант решения сгодится любой, даже если он предполагает использование обычного кликера (с невозможностью работы на компухтере во время его использования). Есть у кого какие мысли?)))) Буду рад услышать что нибудь полезное!

UPD.

Пока что в моей голове это видится так - программка чекает страничку каждые, скажем, 30 секунд, и если на странице меняется какой либо символ, (или же заданный) - то как нибудь оповестит меня (звук, смс, эмайл и прочее). Топорно - но наверное просто.

UPD2.

Если написал не в ту тему - перенаправьте пожалуйста в нужную.

Решение задачи: «Следить за изменениями на сайте»

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

                            Sub Parsing_Store()
    Dim IE As Object
    
    Set IE = CreateObject("InternetExplorer.Application")
    
    IE.Visible = True
    IE.navigate (Worksheets("Pars").Cells(2, 2))
    
    Do While IE.Busy Or (IE.readyState <> 4): DoEvents: Loop
    
Check_for_avaible:
Set CheckList = IE.document.getElementsByTagName("DIV")
For Each CheckList In CheckList
If CheckList.innerText = "Нет в наличии" Then
Worksheets("Pars").Cells(2, 3) = "Нет в наличии"
Application.Wait (Now + TimeValue("00:00:30"))
IE.Refresh
Do While IE.Busy Or (IE.readyState <> 4): DoEvents: Loop
GoTo Check_for_avaible
End If
If CheckList.innerText = "В корзину" Then
CheckList.Children(0).Click
Worksheets("Pars").Cells(2, 3) = "Товар доступен для заказа и добавлен в корзину"
CreateObject("wscript.shell").Run """" & "C:\Users\User\Desktop\Candidates\L 33 - Karate (Neonlight Remix).mp3" & """"
MsgBox ("Товар доступен для заказа и добавлен в корзину")
Exit Sub
End If
Next CheckList
 
End Sub
                        