Format decimal place for variable

[boileauj]

I have declared a variable 'Z' in a procedure I am running, I want it to be displayed in a MsgBox with as a percentage with two decimal places.

The code I have is:

Dim Z As Variant

MsgBox "The Homogeneity of the Batch Model is:" & vbCrLf & vbCrLf & _
" " & Z & "%", vbOKOnly, "Homogeneity Results"

When I use this code it brings up the number Z as XX.X...X%
How do I set it so that it displays as XX.XX% with just the two decimal places?

 

[Domski]

Try:

MsgBox "The Homogeneity of the Batch Model is:" & vbCrLf & vbCrLf & _
" " & Format(Z, "0.00%"), vbOKOnly, "Homogeneity Results"

Dom

 

[taigovinda]

Try this:

MsgBox "The Homogeneity of the Batch Model is:" & vbCrLf & vbCrLf & _
" " & Format(z, "0.00") & "%", vbOKOnly, "Homogeneity Results"

...you can also use Format(z,"0.00%") instead, and then your value would need to be a/b instead of (a/b*100).

 

[Andrew Poulsom]

Is it?

MsgBox "The Homogeneity of the Batch Model is:" & vbCrLf & vbCrLf & _
" " & Format(Z, "0.00%"), vbOKOnly, "Homogeneity Results"

 

[boileauj]

This is exactly what I was looking for, I was just not sure how to write the code to do it.

For reference, I had to make it Z / 100 because it converted the number to a percentage assuming it was a decimal before (when I ran the code the number came out as XXXX.XX%)

So, what worked for me here was:

Format(Z / 100, ".00%")

My example had a number of 63.09487...%, which it showed as 63.09% which is what I was looking for.

Thanks for the help!