I am new to this whole thing and was just looking for a macro that is able to go through a certain folder and if it finds a specific string of text in the body to move emails containing that string to a different folder.

I tried to splice a macro that moves the emails into one that reads the text of the body but I get an error 91 when I try to run the macro. Any help would be appreciated! (not sure if this is the correct place to send these questions)

Code:
Sub AutomateMoveWithSearchString()
    Dim myInspector As Outlook.Inspector
    Dim myObject As Object
    Dim myItem As Outlook.MailItem
    Dim myDoc As Word.Document
    Dim mySelection As Word.Selection
    Dim strItem As String
    Dim strGreeting As String
    Dim objNS As Outlook.NameSpace
    Dim objDestFolder As Outlook.MAPIFolder
    Dim objItem As Outlook.MailItem
            
    Set myInspector = Application.ActiveInspector
    Set myObject = myInspector.CurrentItem
    Set objNS = Application.GetNamespace("MAPI")
    Set objDestFolder = objNS.GetDefaultFolder(olFolderInbox).Folders("Correspondence")
    Set objItem = Application.ActiveInspector.CurrentItem
    
    
    'The active inspector is displaying a mail item.
    If myObject.MessageClass = "IPM.Note" And myInspector.IsWordMail = True Then
        Set myItem = myInspector.CurrentItem
        'Grab the body of the message using a Word Document object.
        Set myDoc = myInspector.WordEditor
        myDoc.Range.Find.ClearFormatting
        Set mySelection = myDoc.Application.Selection
        With mySelection.Find
            .Text = "Other Information (e.g., current Trend customer & products, what competitor are they using, etc)"
            .Replacement.Text = ""
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchAllWordForms = False
            .MatchSoundsLike = False
            .MatchWildcards = True
        End With
        If mySelection.Find.Execute = True Then
             objItem.Move objDestFolder
             Set objDestFolder = Nothing
             Set objNS = Nothing
            End If
        Else
            MsgBox "There is no data in this message."
        End If
End Sub