I've seen other code that leads me to believe that chr(13) can be used in vbs. I think the problem is in the objmessage.text
I don't know how to get around that.

I also tryed using 0 instead of vbBinaryCompare, nada