Would like to know how to copy a formatted number in Excel 2013 to a destination with truncated result?

Hi,

Would like to know how to copy a formatted number in Excel 2013 to a destination with truncated result?

My scenario is :
I have received an Excel worksheet daily.  The worksheet contains many formatted number data.  Yet, the format (especially the decimal points) of each number will be varying daily.  But the underlying data is fixed in length.  Due to the need to transfer the formatted data to PowerPoint slide and Word File, I need to write Excel VBA to do this.  However, I can only transfer the actual number but not the formatted number.  May I know how to transfer the formatted data to the PowerPoint slide  and Word File by using Excel VBA?

Example.
Today : The actual underlying raw data of the Excel cell B1 is : 1234.45678
Today : The formatted data as appeared in cell B1 : 1,234.457
Today : Actual raw data that need to transfer to PowerPoint Slide and Word document for cell B1 : 1234.457

Tomorrow : The actual underlying raw data of the Excel cell B1 is : 23,456.78912
Tomorrow : The formatted data as appeared in cell B1 : 23,456.8
Tomorrow : Actual raw data that need to transfer to PowerPoint Slide and Word document for cell B1 : 23456.8

May I know how to do this in Excel VBA?

Thanks.
Stanley