Was solved via other thread
Private Sub Label13_Click()
    If SpinButton1.Value - 1 >= SpinButton1.Min Then
        SpinButton1.Value = SpinButton1.Value - 1
        SpinButton1_SpinDown
    End If
End Sub

Private Sub Label14_Click()
    If SpinButton1.Value + 1 <= SpinButton1.Max Then
        SpinButton1.Value = SpinButton1.Value + 1
        SpinButton1_SpinUp
    End If
End Sub