VBA Excel set variable on 2digit after the comma - vba

Question

I want to set a result with 2 digits after the comma.
Is there any fast way to do this please ?
Because I need first to look for the result.
(If positif : add "+", negatif let the "-" and null "make it on 0.00)
Dim VariationX as Single
VariationX = 0,5
If VariationX >= 0.01 Then
VariationXString = "+" & VariationX
ElseIf VariationX = 0 Then
VariationXString = "0,00"
End If
VariationXString = Replace(VariationXString, ",", ".")
In this exemple
The result will be "+0.5"
But I want "+0.50" because in some case, the VariationX could be "10,50", "1,20", "-2.8" or simply "1". And I always need to have 2 digit after the comma.
Was going to use InStr, Len and Mid, but this would make a lot of line just for this.

Answer 1

Sorry to be boring, but this looks like a job for a custom number format...
Number formats are structured like so: [positive];[negative];[zero];[text]. So you want something like this:
"+"#,##0.00;"-"#,##0.00;#,##0.00
I get 0.00 for any zero value, +0.50 for 0.5, and -0.25 for -0.2463.
The representation of a value is different from that value. If you want to be able to use 0.5 in calculations, having it stored as "+0.50" is going to cause headaches - but having it stored as 0.5 and represented as +0.50 won't break anything.
If the presentation concern needs to be addressed in code (e.g. if you want that formatted string value to show up in some form's TextBox), then you can use the Strings.Format function to get the same result:
Public Function PrettifyVarianceFigure(ByVal value As Double) As String
PrettifyVarianceFigure = Strings.Format$(value, _
IIf(value > 0, "+", vbNullString) & _
"0" & Application.International(xlDecimalSeparator) & "00")
End Function
You can convert back to /round-trip to a Double by using the standard conversion functions*:
Debug.Print CDbl(PrettifyVarianceFigure(0.42)) ' outputs 0.42
*I doubt CDbl will handle a non-dot decimal separator though, so you might need to make a Strings.Replace call first.