getting the url string from a dynamic text link

[TahorSuiJurisBenYAH]

Hello,

How would I be able to extract the URL

http://www.koeppelnissan.com

- that is within the below class="rllt__action-button _Jrh" ?

Any and all suggestions, greatly appreciated.

REF:
Dim sDD As String
Dim aDD As Variant
'-------------------------------------------------
'GET WEBSITE - COLUMN 5/E
sDD = Trim(Doc.getElementsByClassName("rllt__action-button _Jrh")(0).outerHTML)
MsgBox sDD

aDD = Split(sDD, ",")
'ActiveSheet.Range("e" & x).Value = aDD(1)
'---------------------------------------------------

'

<a class="rllt__action-button _Jrh" href="/url?sa=t&rct=j&q=&esrc=s&source=web&cd=1&cad=rja&uact=8&ved=0ahUKEwiQ3P6h_5zKAhUF7A4KHbLnACgQgU8IEzAA&url=http%3A%2F%2Fwww.koeppelnissan.com%2F&usg=AFQjCNGkovFpjdBhADg_eKigryNOkISaTQ" data-ved="0ahUKEwiQ3P6h_5zKAhUF7A4KHbLnACgQgU8IEzAA" onmousedown="return rwt(this,'','','','1','AFQjCNGkovFpjdBhADg_eKigryNOkISaTQ','','0ahUKEwiQ3P6h_5zKAhUF7A4KHbLnACgQgU8IEzAA','','',event)"><div class="_nMg"><span class="_Mrh"></span><div class="_Orh">Website</div></div></a>

 

[Rijnsent]

Hi Tahor,

you could use two Instr() functions like so:

    startUrl = InStr(sDD, "url=")
    endUrl = InStr(sDD, "usg=")

    Debug.Print Mid(sDD , startUrl + 4, endUrl - startUrl - 4)

Hope that helps,
Koen

 

[TahorSuiJurisBenYAH]

Thank you, shall try it!

TahorSuiJurisBenYAH