Detect the number of decimal places in a userform text box?

[lgjmac]

I have created a userform and it has several textboxes where the user inputs numbers (these will be financial data prices). In one text box the user enters the Price of the asset.

This price can vary in format: it may be £2.27, $123.56 or £64.5902.

I want the userform to work out how many decimal places are in the inputted data and then display the smallest change in a textbox (which can then be altered if necessary).

So, if the Price data is £53.68 then the second box would show £0.01. If the Price data was $123.5392 then the second box would show $0.0001.

Please help!

 

[Rick Rothstein]

Something like this maybe...

If TextBox1.Text Like "*.*" Then
  SmallestChange = "$0." & String(Len(TextBox1.Text) - _
                   InStr(TextBox1.Text, ".") - 1, "0") & 1
Else
  SmallestChange = "$0"
End If