Formatting Decimal Field For Text File Write Out

I have a VB Application that is loading an Array with Numbers from the Sequel Server that have numbers 315054 no cents and leaving the .00 off even numbers. I need to write out the number to a textfile that has 14 zero's to the left removing the decimal point from the number.

The Number should format and be written out like this:
00000031505400 in the text file.

My coding does this as long as the even number has a decimal point .00 but if the number comes in as 315054 into my array my coding gives an Argument error with the coding below.
SCreditTextBox1 = Microsoft.VisualBasic.Right("00000000000000" & Microsoft.VisualBasic.Left(_sData(Irow, 7), _sData(Irow, 7, ".") - 1) & _
Microsoft.VisualBasic.Right(_sData(Irow, 7), 2), 14)
Is there a way to check for no decimal point and then place the number with no .00 as 00000031505400?

The accounting people are entering the numbers into the server this way incorrectly. The .00 is suppose to be entered with it, but not all even numbers are entered this way without .00, just a few, but I need to check the number to see if there are decimals and without decimals do something. Could my coding be re-written to account for not having the .00 and to format the number correctly to avoid the argument error?

I need for any number to format with:
$3,000.00 would appear in server as 3000 or 3000.00 and should write out like this below: I need to check for decimals and without decimals and writeout the format like this below:
00000000300000.