The following will do what you ask, but I suspect that what you asked is not what you want. Looking for 'check' in the body of the text is a rather blunt instrument. I suspect that you are looking for the work in context with a payment, but you will also get unrelated instances of that string e.g. 'check-up' and 'checking' and unrelated uses of the work check alone . I suggest you search for text more specific to your actual requirement
Sub MoveItems()
Dim myNameSpace As Outlook.NameSpace
Dim myinbox As Outlook.Folder
Dim myDestFolder As Outlook.Folder
Dim myItems As Outlook.items
Dim myItem As Object
Dim lCount As Long
Set myNameSpace = Application.GetNamespace("MAPI")
Set myinbox = myNameSpace.GetDefaultFolder(olFolderInbox)
Set myItems = myinbox.items
Set myDestFolder = myinbox.folders("WORK")
For lCount = myItems.Count To 1 Step -1 'Search backwards if removing items to maintain the count
Set myItem = myItems(lCount)
With myItem
If InStr(1, .Subject, "'alert'") > 0 Or _
InStr(1, .Body, "check") > 0 Then
myItem.Move myDestFolder
End If
End With
Next lCount
MsgBox "Process complete", vbInformation
Set myNameSpace = Nothing
Set myinbox = Nothing
Set myDestFolder = Nothing
Set myItems = Nothing
Set myItem = Nothing
End Sub