TEXT関数か・・・ならば
worksheetfunction.text(x, activecell.numberformat)
これでどうかな？