strMessageID is from a received email

Set objMessage = objMessages.MessageID(strMessageID)
strSubject = objMessage.Subject
strClassName = objMessage.ClassName

These 3 lines works, but how am I able to read or write text to/from PersonalSubject, part of the Mail object, subtype of the Message object

Oystein Bach