Hello,
I implemented this just yesterday, but in JScript. You may want try out the 'MailEnvelope' object. I do not know if it is available through VBScript or not. Just in case it helps or gives you a new direction, I would be more than happy.
var oEnvelope = Application.ActiveWindow.MailEnvelope;
oEnvelope.Subject = ...