Private Sub UserForm_Initialize()
With SpinButton1
.Min = 1
.Max = 100
Label1.Caption = "Specify a value between " & .Min & " and " & .Max & ":"
' Initialize Spinner
.Value = 1
' Initialize TextBox
TextBox1.Text = .Value
End With
End Sub