How can i delete HTML element in vba excel ?

Hi ,

I am working on a code that uses VBA-Excel(Macros) to navigate to a website and automate a daily task i do . Having said that , am stuck in between of trying to delete an html element . The following js code works perfect i.e. :-

var elmnt = document.getElementById("example");
elmnt.remove();

How could i make the above 2 lines of js code in vba excel ?

I tried the following but with no result . Please help , thanks in advance .

Sub DailyTask()

Dim ie As InternetExplorer
Set ie = New InternetExplorerMedium
Dim url As String
Dim elementToBeDeleted As String
url = "examplewebsite dot com"

ie.Visible = True
ie.Navigate url

While ie.Busy
DoEvents
Wend

ie.Document.getElementsByTagName("select")("toDOList").Value = "TEST1"
ie.Document.getElementsByTagName("select")("scheduleDate").Value = "TEST2"
ie.Document.getElementsByTagName("select")("descriptionTask").Value = "TEST3"

'Many more of data entry until submitting the form works fine .

elementToBeDeleted = ie.Document.getElementById("example")
Call DeleteTagById(elementToBeDeleted)

Set ie = Nothing
End Sub

Function DeleteTagById(elementToBeDeleted As String) As String

On Local Error GoTo MyError

Dim HTMLDoc As HTMLDocument
Dim Node As IHTMLDOMNode

If elementToBeDeleted = "" Then GoTo MyExit

Set HTMLDoc = New HTMLDocument
Set Node = HTMLDoc.getElementById("example") 'Node always equals to nothing , why ? hence i get stuck here and cant move further.

'If Node Is Nothing Then GoTo MyExit
Node.ParentNode.RemoveChild Node 'this line gives me run time error 91 object variable or with block variable not set .

MyExit:
Set Node = Nothing
Set HTMLDoc = Nothing
Exit Function
MyError:
'Handle Error
Resume MyExit

End Function

ActiveCell.Hyperlinks.Delete

or
range("A4").Hyperlinks.Delete

Thanks for the reply . But note that i am not trying to delete from a cell or a range . What i am trying to achieve is that delete an html tag for instance an html table element or html p element .