Sub Read_Txt_and_Check()

Dim fileNum As Integer
Dim RayTxt() As String
Dim L As Long
Dim T As Long
Dim b_Found As Boolean

fileNum = FreeFile
Open "C:\Users\info\Desktop\text.txt" For Input As fileNum
ReDim RayTxt(0)
Do While Not EOF(fileNum)
    ReDim Preserve RayTxt(UBound(RayTxt) + 1)
    Line Input #fileNum, RayTxt(UBound(RayTxt))
Loop
Close #fileNum

For L = ActivePresentation.Slides.Count To 1 Step -1
b_Found = False
For T = LBound(RayTxt) To UBound(RayTxt)
If word_Found(RayTxt(T), ActivePresentation.Slides(L).NotesPage.Shapes(2).TextFrame.TextRange) Then
b_Found = True
Exit For
End If
Next T
If b_Found Then ActivePresentation.Slides(L).Delete
Next L
End Sub

Function word_Found(strword As String, otxtR As TextRange) As Boolean
On Error Resume Next
Dim found As TextRange
Set found = otxtR.Find(FindWhat:=strword, MatchCase:=False, Wholewords:=True)
If Not found Is Nothing Then word_Found = True
End Function