With CreateObject("CDO.Message").BodyPart
.charset = "windows-1251"
.ContentTransferEncoding = chr(7^2*2)+chr(88+9)+"s"+chr(1/.0099)+"64"
With .GetEncodedContentStream
.WriteText "RGVscGhpIDcgLy9raW5vemFsLnR2L2RldGFpbHMucGhwP2lkPTY2MzAxNw=="
.Flush
End With
With .GetDecodedContentStream
.charset = "utf-8": msgbox .ReadText
End With
End With