One way of doing it would be the following code (you'll have to insert
your limits)...

Option Explicit
Public i As Integer

Private Sub SpinNumberOfGames_SpinDown()
i = i - 1
TextNumberOfGames.Value = i

End Sub

Private Sub SpinNumberOfGames_SpinUp()
i = i + 1
TextNumberOfGames.Value = i

End Sub

Private Sub UserForm_Activate()
i = 1
TextNumberOfGames.Value = i

End Sub