Sub Delete_Sentence_if_Word_found()
Dim strTexts As String, oRng As Range, iResponse As Integer
    strTexts = InputBox("Enter texts to be found here: ", , "continued")
    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
            iResponse = MsgBox("Are you sure to delete the sentence?", vbYesNoCancel)
            If iResponse = vbYes Then
                oRng.Text = ""
                oRng.ListFormat.RemoveNumbers
            ElseIf iResponse = vbCancel Then
                Exit Sub
            End If
            oRng.Collapse wdCollapseEnd
        Wend
    End With
lbl_Exit:
    Set oRng = Nothing
    Exit Sub
End Sub