如何在VBScript中删除表情符号

Question

我是VBS的新用户，当电子邮件的主题包含这样的字符串表情符号时，我的脚本崩溃了：

=?UTF-8?Q?Follow_Fluff_Festival=2c_Dolto_a=2c_nd_DOLLY_PRANE?=
=?UTF-8?B?8J+Hq/Cfh7finJ4gb24gVHdpdHRlciE=?=

我试过了：

subjet = Replace(oMessage.Subject, (([0-9|#][\x{20E3}])|[\x{00ae}|\x{00a9}|\x{203C}|\x{2047}|\x{2048}|\x{2049}|\x{3030}|\x{303D}|\x{2139}|\x{2122}|\x{3297}|\x{3299}][\x{FE00}-\x{FEFF}]?|[\x{2190}-\x{21FF}][\x{FE00}-\x{FEFF}]?|[\x{2300}-\x{23FF}][\x{FE00}-\x{FEFF}]?|[\x{2460}-\x{24FF}][\x{FE00}-\x{FEFF}]?|[\x{25A0}-\x{25FF}][\x{FE00}-\x{FEFF}]?|[\x{2600}-\x{27BF}][\x{FE00}-\x{FEFF}]?|[\x{2900}-\x{297F}][\x{FE00}-\x{FEFF}]?|[\x{2B00}-\x{2BF0}][\x{FE00}-\x{FEFF}]?|[\x{1F000}-\x{1F6FF}][\x{FE00}-\x{FEFF}]), "")

但这不起作用。如何从VBScript中的字符串中删除所有表情符号字符？