Ho do I copy the value from Input box and use it to search the same value in other excel?

Question

    Dim WB As Workbook
    Dim URL As Variant
    Dim Sh As Worksheet
    Dim WB1 As Workbook
    Dim i As Integer
    Dim LR As Long
    Dim stext As String
    ThisWorkbook.Activate
    Set WB = ThisWorkbook
    URL = "https://Training%20Materials/Admin%20recurring%20request%20Handbooks/Test/Updated%20Quality%20Tracker.xlsx?d=w68cd37bd0505426fb4d6fe38c21e23a8"
    Set WB1 = Workbooks.Open(URL)
    Debug.Print WB1.FullName
    Set WB1 = ActiveWorkbook
    WB1.LockServerFile
    sReturn = InputBox("Please enter the Search# ") ' I want to copy this search#
    'Clipboard.SetText (CStr(totalYields))
    Clipboard.SetText (CStr(totalYields)) 'but this is not allowing me to store if I use set stext
    WB1.Activate
    Range("A1").Select
    On Error GoTo 0
    Cells.Find(What:=stext, After:=ActiveCell, LookIn:=xlFormulas2, _
            LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=False, SearchFormat:=False).Activate
    ActiveCell.Select
    ActiveCell.EntireRow.Delete
    Dim msgvalue As VbMsgBoxResult
    msgvalue = MsgBox("The information related to Search# provided has been deleted", vbOKOnly)
    msgvalue = MsgBox("Please continue to update fresh entries and submit")
    0:
End sub

As mentioned above , please provide solution to store the input message box value and use it to search in other excel workbook