' create restrict filter
Period2Check = "[Received] >= """ & StartDate & """"

reTry:

' limit population to those items only that have been received within the indicated period
Set myRestrictItems = MyFl_MO.Items.Restrict(Period2Check)

' if Restrict returned any items than work with them
If Not myRestrictItems Is Nothing Then
    For Each myItem In myRestrictItems

        ' if this is an Email item
        If (myItem.Class = olMail) Then
            
            ' identify which quarter a message belongs to by looking at month value
            Select Case Month(myItem.ReceivedTime)
                Case Is <= 3
                    qq = "_Q1"
                
                Case Is <= 6
                    qq = "_Q2"
                
                Case Is <= 9
                    qq = "_Q3"
                
                Case Is <= 12
                    qq = "_Q4"
                    
            End Select
            
            ' constract part of folder name as "YYYY_Q#"
            qq = Year(myItem.ReceivedTime) & qq
            
            ' check what message type (MT) is received, which is indicated on the Subject field
            ' depending on MT constract full folder name as "PREFIX_YYYY_Q#"
                       
            If InStr(1, "544", myItem.Subject) <> 0 Then
                If InStr(1, "701533", myItem.Body) <> 0 Then
                    Set MyFl_b1 = MyFl_MO.Folders("TC_" & qq)
                    If Not MyFl_b1 Is Nothing Then
                        myItem.Move MyFl_b1
                        Set MyFl_b1 = Nothing
                        
                    Else
                        Set MyFl_b1 = Nothing
                        Set MyFl_b1 = MyFl_MO.Folders.Add("TC_" & qq)
                        myItem.Move MyFl_b1
                        Set MyFl_b1 = Nothing

                    End If

                Else

                    Set MyFl_b1 = MyFl_MO.Folders("Other_" & qq)
                    If Not MyFl_b1 Is Nothing Then
                        myItem.Move MyFl_b1
                        Set MyFl_b1 = Nothing
                        
                    Else
                        Set MyFl_b1 = Nothing
                        Set MyFl_b1 = MyFl_MO.Folders.Add("Other_" & qq)
                        myItem.Move MyFl_b1
                        Set MyFl_b1 = Nothing

                    End If
 
                End If

            Else
                    Set MyFl_b1 = MyFl_MO.Folders("Other_" & qq)
                    If Not MyFl_b1 Is Nothing Then
                        myItem.Move (MyFl_b1)
                        Set MyFl_b1 = Nothing
                        
                    Else
                        Set MyFl_b1 = Nothing
                        Set MyFl_b1 = MyFl_MO.Folders.Add("Other_" & qq)
                        myItem.Move (MyFl_b1)
                        Set MyFl_b1 = Nothing
                        
                    End If
                
            End If
            
        End If
    Next
End If

Set myRestrictItems = MyFl_MO.Items.Restrict(Period2Check)
' if Restrict returned any items them work with them
If Not myRestrictItems Is Nothing Then
    If myRestrictItems.Count > 0 then
        Goto reTry
    End If
End if