Problem with formatting text VBA scripting - VBA Excel to InDesign.

[smolar22]

Hi, 

I have a problem in VBA excel I taken data by :

AdobeInDesignApp.Documents.Item(1).TextFrames.Item(i).contents

here is a screen from In Design, 

I changed the price ( if it is the same lenght 3digits it is ok, if is longer, we have problem

with formatting

After run script: 

VBA Excel:  AdobeInDesignApp.Documents.Item(1).TextFrames.Item(i).contents = Replace(AdobeInDesignApp.Documents.Item(1).TextFrames.Item(i).contents, "000", "19999")

so it changed bold text and giving me a problem. I want to keep as above. 

Can you help me how to do that?