Just set the Max & Min values of the SpinButton - default is zero to 100. Then

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