Paste to navigation search box from userform

[JPG]

Rolled back to this and it works.

Private Sub CommandButton48CopyTextInTextbox_Click()
    If selection.Type = wdSelectionIP Then InSelection = True
    selection.HomeKey wdStory
    TextBox8refList.SetFocus
    SendKeys "{Home}"
    SendKeys "+{End}"
    DoEvents    'This was the key to this working. Macro was going ahead of itself
    TextBox8refList.SetFocus
    TextBox8refList.Copy
    Dim DataObj As MSForms.DataObject
    Set DataObj = New MSForms.DataObject
    DataObj.GetFromClipboard
    strPaste = DataObj.GetText(1)
    Dim dlg As Dialog
    Set dlg = Application.Dialogs(wdDialogEditFind)
    dlg.Find = strPaste
    SendKeys "%(f){tab}{ENTER}"
    dlg.Show
    ' This section added, and it makes it use the navigation window
    ' On Error Resume Next
    ' ActiveWindow.SetFocus
    ' DoEvents
    If CheckBox17NavigationPane.Value = True Then
         SendKeys "^f"
         SendKeys "^v"
         SendKeys "{ENTER}"
    End If
End Sub