Formating percentages

[Midol]

Is there an easy way to format a % into a normal number?

For example, 55.5% into .555?

I've written some code to do it, but it's quite a few lines so was wondering if there is a way to do it in 1-3 lines.

[RhinoBull]

Replace the "%" with nothing and divide result by 100:

MsgBox CSng(Replace("55.5%", "%", "")) / 100

[Midol]

*sigh*

I always get embarrassed by things like this :P Always trying to find the most complicated method ever.

Thanks!

[RhinoBull]

You're welcome.
And there is nothig to be embarrassed about - people do thing in 1000 different ways so I'm sure you will get another dozen or so suggestions.

Regards.

[Siddharth Rout]

very true Rhino

I follow this in VBA Excel

Sub formatnumber()
    sss = "55.5%"
    MsgBox Val(Format(sss, general))
End Sub

Not sure if "general" will work in vb6

[Code Doc]

And, this will remove the leading 0 from Rhino's code if that is a requirement:

MsgBox Format$(CSng(Replace("55.5%", "%", "")) / 100, "#.000")