Paste to navigation search box from userform

[JPG]

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
    If CheckBox17NavigationPane.Value = True Then
        SendKeys "^f"
        SendKeys "^v"
        SendKeys "{ENTER}"
    End If
End Sub

Well after much trial and error I found this works and with the checkbox option I can have it use either the regular search box or the navigation pane.