vai ter q usar o "format" nesse caso:

 

Não consegui rapaz, pq o I recebe 1.23456??

 

abraços

O q eu passei é apenas um exemplo, por isso usei "i= 1.23456" e msgboxes para mostrar o q estou querendo dizer....

 

digamos q peso seja uma currency...

 

dim Peso as Currency

 

Peso = ccur("27,160")

 

Neste caso suponhamos q seja 27,160 Kg. Só q a variável contém "27,16".

Para vc formatar o peso coloque assim:

 

msgbox Format(peso, "###,###,###.##0")

 

 

"msgbox" foi usado ae só pra mostrar o resultado deste exemplo... vc vai usar só o format do jeito q estou explicando...

 

entendeu?

 

qq dúvida é só postar

 

t+

Esta coisa é doida mesmo, mas é simples, vai a forma de resolver:

Coloque a formatação do Text como Números, com a quantidade de casas decimais que desejar e com separador de milhares. (se for Currency)

Dim Cfrete As Currency

Private Sub Textfrete_LostFocus

 If Len(trim(Textfrete)) = 0 Then Textfrete = 0

 If Not Isnumeric(Textfrete) Then Textfrete = 0

 If Val(textfrete) < = 0 Then Textfrete = 0  

 Textfrete = Format$(Textfrete, "###,##0.00")   (com duas casas decimais)

 Cfrete = textfrete

End Sub

Neste caso coloquei duas casas decimais, e o usuario não deve digitar o separador de milhares, isto fica por conta da sua formatação, se digitar não pega, (verifique no evento KeyDown ou KeyPress)

O cálculo faça com as variaveis e jogue no Texts da forma que quiser.

 

vlu//

 

 

 

LCRamos este exemplo que vc passou, parece que vai me servir bem, pq nao deixa o usuario digitar algo errado!!!!!
Vou testar e qualquer coisa vou postar aki!!!!!!!!
Abraços

Bom eu faço mais simples se o banco é formato texto e o valor é armazenado em um textbox ambos são strings então:

dim nval as single

 

nval=csng(text1)*csng(text2)

nval=format(nval,"###,##0.00")