What I'm trying to do is access my outlook inbox and grab all unread
emails, received today, with subject containing "string here".
After grabbing I'm placing tab delimited data in Excel.

The above works fine almost (I'm unable to limit to just unread)

The following is where it's breaking.

Next I need to move processed emails to another folder.
When I run this macro - which I built based on code from this group.
The code is loading the emails I expect into Excel but it's moving all
unread emails to another folder.
I only want the items I process that met first series of condition

Thoughts
Steve
**** Start Code ****
Sub GetTradeSignal()
On Error Resume Next

   Dim olApp As Outlook.Application
   Dim olNs As NameSpace
   Dim Fldr As MAPIFolder
   Dim olMail As Variant
   Dim sStr As String
   Dim arr As Variant
   Dim i As Integer
   Dim x As Long

   Set olApp = New Outlook.Application
   Set olNs = olApp.GetNamespace("MAPI")
   Set Fldr = olNs.GetDefaultFolder(olFolderInbox)
   i = 1

   For Each olMail In Fldr.Items
       If olMail.UnRead = True And _
       InStr(olMail.Subject, "C2:Trade:") > 0 And _
       Int(olMail.ReceivedTime) = Date Then
       sStr = olMail.Body
   arr = Split(sStr, " ")
   x = UBound(arr) - LBound(arr) + 1
           ActiveSheet.Cells(i, 1).Resize(1, x).Value = arr
           i = i + 1
       End If
   olMail.UnRead = False
   olMail.Move Fldr.Folders("Archived")
   Next olMail

   Set Fldr = Nothing
   Set olNs = Nothing
   Set olApp = Nothing

End Sub
****End CODE *****