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