How to increase Spin Button by .1 decimal

[KangarooJack]

I have a Spin button (SpinButton1) connected to a text box (txtVersion) and I need it to increase by .1 so Version Numbers are 2.0, 2.1,2.2, etc...



When I try to change the Value in Properties to 2.0 or SmallChange to .1 I get an error message.

Also, if that doesn't work, is there a way to set the default value in txtVersion to "2.0" ?

[macropod]

Without actually seeing the problem userform and the code behind it, it can be difficult for anyone to diagnose the issue. Can you attach a document to a post with just the userform? You do this via the paperclip symbol on the 'Go Advanced' tab at the bottom of this screen.

[gmaxey]

You will need to define the textbox value as a double:

Private Sub SpinButton1_SpinDown()
Dim dblRev As Double
  dblRev = CDbl(TextBox1.Text) - 0.1
  TextBox1.Text = Format(dblRev, "0.0")
End Sub
Private Sub SpinButton1_SpinUp()
Dim dblRev As Double
  dblRev = CDbl(TextBox1.Text) + 0.1
  TextBox1.Text = Format(dblRev, "0.0")
End Sub
Private Sub UserForm_Initialize()
 TextBox1.Text = Format(CDbl("1.0"), "0.0")
End Sub

[KangarooJack]

Thank you gmaxey that worked perfect!