Format number

[belebala]

I'm trying to format a number to 3 decimal places (eg. 123.45678 to 123.457, but it is returning 123.5). Anyone has an idea?

Format$(CDbl(Value), "####.000")

[Ace]

Use FormatNumber("123.45678", 3)

[belebala]

Still returning 1 decimal place.

FormatNumber(CDbl(Value), 3, , , vbTrue)

[Ace]

I'm not sure what you are doing wrong, but this works.

MsgBox FormatNumber(CDbl(312.123456), 3)

It returns 312.123

What is the number you are formatting?

[belebala]

My number is 14.3 as a String, then I use CDbl to convert it to double. I want this number to display as 14.30

[si_the_geek]

Then display it that way - but you cannot store it that way in a Double, only in a String.

[belebala]

I have a list of numbers, showing in 1, 2 and 3 decimal places. I want display them all in 3 decimal places. I've tried just use FormatNumber(Value), 3, , , vbTrue) and FormatNumber(CStr(Value), 3, , , vbTrue), both of them returned the original decimal places.

[si_the_geek]

Show us the actual code you are using (not just part of a line, but the relevant section of code and variable declarations).

[Code Doc]

Note that all 1001 of these numbers display in a list box exactly three places to the right of the decimal:

For I = 0 To 1000
    List1.AddItem Format$(Sqr(9 + I), "###.000")
Next

[Alvanian]

Private Sub Command1_Click()
Dim parse() As String
Dim X As String
If InStr(Text1.Text, ".") Then
parse = Split(Text1.Text, ".")
X = Left(parse(1), 3)
Text1.Text = parse(0) & "." & X
End If
End Sub