Extracting Specific Text from Email!!

[hamudi]

maybe because of sub folder...

here is a piece of code that i use to reach subfolders...
[vba]

Set olFolder = olNs.Folders("Mailbox - My Name"). _
Folders("Inbox").Folders("My Sub Folder")
[/vba]

I've tried pointing it to inbox still nothing.
My guess there's some adjustment i need to do with this

[VBA]For Each olMail In olFolder.Items
If InStr(1, olMail.Body, sFilterStart, vbTextCompare) > 0 Then
aExtract = Split(olMail.Body, sFilterStart)
aExtractItems = Split(aExtract(1), " ")
sExtract = aExtractItems(0) & " - " & aExtractItems(2)
If InStr(1, olMail.Body, sFilterStart & sExtract & sFilterEnd, vbTextCompare) <> 0 Then
ActiveSheet.Cells(iRow, 25).Value = sExtract
iRow = iRow + 1
End If
End If
Next olMail
[/VBA]