Hello,
I need help. Trying to figure out what the heck is wrong with my script.

I have an InputBox, to enter a text that I would find in a Word document.
So basicly, if I find a word among a sentence, I wish to be asked Yes or No, if I should delete it.

If I Click on Yes, it works fine, but if I click on No, it's stuck. That's it. I must do it on a dummy document to test it and must say Yes in order to stop the script.

Is there anyone that could guide me where is my script going wrong?

I'm also trying to encorporate vbYesNoCancel, but I don't know what to do, cause the button Cancel is there, but it doesn't act on it.

Sub Delete_Sentence_if_Word_found()
Dim strTexts As String
Dim oRng As range
Dim bFound As Boolean
bFound = False
strTexts = InputBox("Enter texts to be found here: ")
Set oRng = ActiveDocument.range
With oRng.Find
.ClearFormatting
.Text = strTexts
.Forward = False
.Wrap = wdFindStop
.Format = False
.MatchCase = False
While .Execute
bFound = True
oRng.Expand Unit:=wdParagraph
oRng.Select
ActiveDocument.ActiveWindow.ScrollIntoView Selection.range, True
If MsgBox("Are you sure to delete the sentence?", vbYesNo) = vbYes Then
Selection.Delete
End If
oRng.Collapse wdCollapseEnd
Wend
End With
If Not bFound Then
End If
lbl_Exit:
Set oRng = Nothing
Exit Sub
End Sub