VBA code - Search box function - return value/text not location

Code will run based on the input value mentioned in a1 cell. Change the Range("A1") to your desired cell in the below code.

Sub SearchText()
Dim rArea As Range, rFound As Range, rSearchTxt As String

rSearchTxt = Range("A1").Value

If rSearchTxt = "" Then MsgBox "Search Text Cell is blank", vbCritical, "Missing Data": Exit Sub

Set rArea = Sheets("Sheet2").Range("I2:J10932")
Set rFound = rArea.Find(rSearchTxt, , , xlPart)

If Not rFound Is Nothing Then
    rFound.Cells(1).Select
    MsgBox rFound.Cells(1).Value, vbInformation, "Task Completed"
    Exit Sub
End If

MsgBox "No match is found", vbInformation, "Task Completed"

End Sub