At last i completed it with lots of R&D and googling i got it worked posted the code for your refrence.

Code:
Set myHTMLDoc = ie.document
        
  Set myHTMLFrame2 = myHTMLDoc.frames(0).document
  Set htmlDoc = myHTMLFrame2

    Set link = Nothing
    i = 0
    While i < htmlDoc.Links.Length And link Is Nothing
        If htmlDoc.Links(i).innerText = "Data Extraction" Then Set link = htmlDoc.Links(i)
        i = i + 1
    Wend
    If Not link Is Nothing Then
        link.Focus
        link.Click
    Else
        
    End If
    Set theFrame = Nothing