Private Sub SpinButton1_Change()
TextBox1.Text = SpinButton1.Value
End Sub