Private Sub SpinButton1_SpinDown()
    If Val(TextBox46.Text) > 1 Then
        TextBox46.Text = Val(TextBox46.Text) - 1
    End If
    
End Sub

Private Sub SpinButton1_SpinUp()
    If Val(TextBox46.Text) < 45 Then
        TextBox46.Text = Val(TextBox46.Text) + 1
    End If
End Sub