VBA format function

[eduzs]

Hi,
I need to use vba FORMAT function to return this:
Result = Format(MyNumber,"x")
MyNumer Result
123 123

1234 1.234
1234,1 1.234,1
1234,12 1.234,12


What "x" will produce these results?
Thanks

[Guessed]

On English language systems the comma and dot are reversed so you would need to adapt the function accordingly.

You will need two different formats to deal with whole numbers vs numbers with decimal places.

Sub Test_FormatMyNumber()
  MsgBox FormatMyNumber(1234)
  MsgBox FormatMyNumber(123)
  MsgBox FormatMyNumber(1234.1)
  MsgBox FormatMyNumber(1234.12)
End Sub

Function FormatMyNumber(MyNumber As Double) As String
  If MyNumber = Round(MyNumber, 0) Then
    FormatMyNumber = Format(MyNumber, "#,###")
  Else
    FormatMyNumber = Format(MyNumber, "#,###.###")
  End If
End Function