VBA data extracting : please help me out to write a VBA to get extract whatsapp contact no

Here bellow is URL


  <https://www.justdial.com/Ahmedabad/Kalon-Laser-Skin-And-Slimming-Across-Shell-Petrol-Pump-Prahladnagar/079PXX79-XX79-171119143016-Q7S9_BZDET?xid=QWhtZWRhYmFkIEJlYXV0eSBQYXJsb3Vycw>

there is an hiden whatsapp contact no I want to extract this contact no.

here bellow is my code. there is some mistake

    Public Sub GetValueFromBrowser()


    Dim Sn As Integer
    Dim ie As Object
    Dim url As String
    Dim Doc As HTMLDocument
 
    
    url = "https://www.justdial.com/Ahmedabad/Kalon-Laser-Skin-And-Slimming-Across-Shell-Petrol-Pump-Prahladnagar/079PXX79-XX79-171119143016-Q7S9_BZDET?xid=QWhtZWRhYmFkIEJlYXV0eSBQYXJsb3Vycw"

    
    Set ie = CreateObject("InternetExplorer.Application")

    With ie
      .Visible = 0
      .navigate url
       While .Busy Or .readyState <> 4
         DoEvents
       Wend
    End With

    Set Doc = ie.document
    
    Range("C13") = Trim(Doc.getElementsByID("whatsapptriggeer")(0).Value)

End Sub

[enter image description here][1]


  [1]: https://i.stack.imgur.com/5ihUk.jpg