Option Explicit

Function GetElementsByClassName1(cName As String, q As String)


Dim IE As New InternetExplorer
IE.Visible = True
IE.navigate "http://hk.dictionary.yahoo.com/dictionary?p=" & q
Dim html As HTMLDocument
Set html = IE.Document

Do Until IE.readyState = 4

Loop
    
    Dim Result
    Dim tag
    Dim tags As Object
    Set tags = html.getElementsByTagName("*")

    Result = Array()


    For Each tag In tags
        If tag.className = cName Then
            ReDim Preserve Result(UBound(Result) + 1)
            Set Result(UBound(Result)) = tag
        End If
    Next tag

    GetElementsByClassName1 = Result(0).getElementsByTagName("div")(0).innerText
    
IE.Quit
End Function