Need help with an automating a "Message from webpage" click.

Question

Any help would be appreciated. I guess I would consider myself as a beginner with VB.NET.
Basically - My program launches an internet explorer window. Points to a specific webpage that has records. Finds the "check all" and clicks it, then finds and clicks "delete".
I am stuck at this part. A "Message from webpage" pops up wanting to confirm the deletion of the records. I have 50 records per page and an excess of 14,000 records each day that need to be deleted. I do not have time to click OK on every single
page.
I have tried to sendkey function, which worked for a while but for some odd reason, it quit working. Someone suggested using API, which I know nothing about. Please help me! I am desperate!
Here is my code. I know the "threading.thread.sleep" isn't good to use but I need someway to pause. Like i said, I am a beginner, so please be easy!
Public Class Form1
Dim oInputs As Object
Dim oWShell As Object
Private Sub btndel_Click(sender As Object, e As EventArgs) Handles btndel.Click
With CreateObject("InternetExplorer.Application")
.visible = True
.navigate("WEDPAGE GOES HERE!")
Threading.Thread.Sleep(3000)
oInputs = .document.getElementsbytagname("a")
For Each elm In oInputs
If InStr(elm.innertext, "(Un)Check All") > 0 Then
elm.click()
Exit For
End If
Next
For Each elm In oInputs
If InStr(elm.innertext, "Delete") > 0 Then
elm.click()
Exit For
End If
Next
Do While .busy Or .readystate <> 4
Threading.Thread.Sleep(2000)
Loop
End With
Dim objShell = CreateObject("WScript.Shell")
Dim Success = objShell.AppActivate("Message from webpage")
Do Until Success = True
Threading.Thread.Sleep(1000)
Success = objShell.AppActivate("Message from webpage")
Loop
Application.DoEvents()
AppActivate("Message from webpage")
SendKeys.Send("{ENTER}")
End Sub

Answer 1

Hi msnyder1112,
Thank you for posting in MSDN forum.
Since this issue is related to the VB.NET, so we will move this case to VB forum:
https://social.msdn.microsoft.com/Forums/vstudio/en-US/home?forum=vbgeneral , you will get better support.
Thanks for your understanding.
Best Regards,
We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click
HERE to participate the survey.