The highlighted code is wrong when you are adding subitems.
Code:
itmM.ListSubItems.Add = (Pop3.Messages(i).Subject)
try it like
Code:
itmM.ListSubItems.Add Text:=(Pop3.Messages(i).Subject)