If the string from the input box is not found, I want to rerun the code if
the retry button is selected from the message box.

How do I fix the code below to make this work?

Sub FindStr_sub()
Dim s As String, t As String, q As String
Dim r As Range
Dim response As Byte
t = Chr(10) & Chr(10)
s = Application.InputBox("Enter the Word: ", "Locate 'Word'")
DoOver:
For Each r In ActiveSheet.UsedRange
With r
If InStr(1, .Value, s) 0 Then
q = q + .Address & " " & .Value & t
End If
End With
Next
If q < "" Then
MsgBox "Found the Word in Cell(s)" & t & q, , "Word Location"
Else
MsgBox "Did not find the Word " & t & Chr(34) & s & Chr(34),
vbRetryCancel, "Word Location"
If response = vbRetry Then
GoTo DoOver
Else
End If
End If
End Sub