How do I retrieve the color flag of an Outlook email using Access 2007 vba?

I am using the following code to read emails from Outlook:

Private Sub ImportEmails_Click()
Dim olApp As Outlook.Application
Dim Inbox As Outlook.MAPIFolder
Dim mItem As MailItem
Dim InboxItems As Outlook.Items

On Error GoTo Err_ImportEmails_Click

Set olApp = CreateObject("Outlook.Application")

Set Inbox = olApp.GetNamespace("Mapi").GetDefaultFolder(olFolderInbox).Folders("xxx").Folders("yyy")

Set InboxItems = Inbox.Items
 
For Each mItem In InboxItems

'Check email flag
'If Flag = Yellow then
'EmailAssignedTo="Sue"
'elseif Flag = Red then
'EmailAssignedTo = "Bob"
'end if
.
Next

I need to add code which will determine the color of the email flag, to incorporate the if statements above, which are commented out.

How is the color of the email flag accessed?
I have found information on using OlCategoryColor, but have not been able to successfully incorporate this into the code.