うーん、Text1.Text = b()ってやってみましたが駄目でした。
Unicode変換って、StrConv関数でいいんですか？