VBA code to find meaning of the phrase/word in active cell

SeekMeaning

Public Sub SeekMeaning()
Dim appIE As Object
Set appIE = CreateObject("internetexplorer.application")
On Error GoTo en
Dim seStr As String
seStr = Replace(ActiveCell.Value, " ", "-")
With appIE
    .Navigate "https://www.dictionary.com/browse/" + seStr
    .Visible = False
End With
Do While appIE.Busy
    DoEvents
Loop
Set allrowofdata = appIE.document.getelementsbyclassname("one-click-content css-0 e1w1pzze1")
Dim i As Integer
i = 1
For Each dat In allrowofdata
    MsgBox dat.innerText, vbOKOnly, "Meaning " + CStr(i)
    i = i + 1
Next
en:
appIE.Quit
Set appIE = Nothing
End Sub