[Resolvido]Formatar casas decimais para exportação

Bom dia

Possuo uma rotina de exportação de dados em arquivo texto e não estou conseguindo fazer com que o campo de valor seja exportado com casas decimais.

Estou a utilizar este código (parte):

Código:



'Aqui pego o maior valor do saldo inicial para alinhar à esquerda
Set RSP = CurrentDb.OpenRecordset("SELECT Max(Len(SaldoInicial)) FROM reg_I155;")
TamValor = RSP(0)

'Aqui faço a geração (saída) do arquivo texto
Sai = JustStr(RSP!Dev7, "000000000", 16) & JustStr(RSP!Cred7, "000000000", 16) & Space(1) & (RSP!dtData) & Space(1) & ("000000000") & Space(10 + TamValor - Len(RSP!SaldoInicial)) & (RSP!SaldoInicial) & Space(1) & (RSP!Historico)



Este código funciona perfeitamente, porém, ocorre que:

Na minha tabela possuo no campo SaldoInicial (Campo texto) que possui vários valores, como por exemplo:
15,51
1350,5
600
750000

portanto tenho valores com e sem casas decimais

Há alguma forma de, na rotina de exportação que uso acima, formatar o campo Saldo Inicial para que retorne estes valores na exportação:
15,51
1350,50
600,00
750000,00

Alguém tem alguma dica.

Att.
Vinicius

Assim amigo:

Format(rs1("ValorUnit"), "##,###.00") ' Coloca sempre 2 casas decimais. Faça um teste.

300 ficara 300,00;
300,5 ficara 300,50 etc...

rs1("ValorUnit") é o campo que contem o Valor

Bom dia

muito obrigado, problema resolvido.

Att.
Vinicius