String Format

[Cubbie]

Looking for a better/simpler way to format a fixed length dollar and cents string. I want to format the string to 10 positions with the last 2 positions being the cents without the decimal point. For example 86.38 needs to be 0000008638. Here is what I currently have:


Dim TPAmt as string 'TP dollar amount
Dim TPCents as string 'TP cents amount


TPCents = Right$(txtData(3), 2) 'TP Cents

'set and format Amount variables
TPAmt = Fix(txtData(3).Text)
TPAmt = Format$(TPAmt, "00000000") & TPCents

[Clearcode]

Try:

TPAmt = Format$((txtData(3).Text * 100), "0000000000")




-------------------------------------------------
Ex. Datis: Duncan Jones
Merrion Computing Ltd
http://www.merrioncomputing.com

[Cubbie]

Tx-Yours is the simpler solution I knew there had to be. I'm brain dead today. Staying up late and getting up at 5:00 AM doesn't make for clear thinking.