'Spin down event procedure for spin button
Private Sub SpinButton1_SpinDown()
With Range("B4")
'Decrease value in B4 by .05%. Stop at 0%
.Value = WorksheetFunction.Max(0, .Value - 0.0005)
End With
End Sub