Try the following
Code:
Sub Delete_Sentence_if_Word_found()
Dim strTexts As String
Dim oRng As Range
strTexts = InputBox("Enter texts to be found here: ")
Set oRng = ActiveDocument.Range
With oRng.Find
.ClearFormatting
.Replacement.ClearFormatting
While .Execute(findText:=strTexts)
oRng.Expand Unit:=wdSentence
oRng.Select
ActiveDocument.ActiveWindow.ScrollIntoView oRng, True
If MsgBox("Are you sure to delete the sentence?", vbYesNo) = vbYes Then
oRng.Text = ""
End If
oRng.Collapse wdCollapseEnd
Wend
End With
lbl_Exit:
Set oRng = Nothing
Exit Sub
End Sub