Use the Result property to access the object that generated the definition. the Use the Execute method to execute a query.

The following sample displays the "exact" definitions for the "dog" word:

Private Sub Form_Load()
    Dim c As EXDICTCLIENTLibCtl.Connection
    Set c = Client1.OpenConnection("dict.org")
    If Not (c Is Nothing) Then
        With c.CreateQuery("dog", , c.Strategies("exact"))
            Dim r As EXDICTCLIENTLibCtl.IResult
            For Each r In .Execute
                Debug.Print " Searching the '" & r.Word & "' in '" & r.Dictionary.Name & "' dictionary gets: "
                Dim d As EXDICTCLIENTLibCtl.IDefinition
                For Each d In r.Definitions
                    Debug.Print d.Body
                Next
            Next
        End With
        c.Close
    End If
    Set c = Nothing
End Sub