[VB.NET] NumericUpDown e problema sottrazione

[GhostFire]

Chiedo scusa per aver aperto due topic in poco tempo ma sono dei problemi veramente banali a cui sto scervellando da ore... questa volta per ogni valore che si aumenta sul numericupdown si addiziona il costo che è in una variabile e viene scritto nella textbox.Per cui:

valore 1 = 1000 sul textbox
valore 2 = 2000 sul textbox

e così via...fin qui nessun problema, addiziona senza problemi.Il problema è nel quando decremento il valore del numericupdown...

Private Sub NumericUpDown2_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown2.ValueChanged

        'TextBox2.Text = NumericUpDown1.Value
        If NumericUpDown2.Increment = +1 Then //se incremento il valore del numeric aggiungo il costo
            TextBox2.Text += costo
        Else
            If NumericUpDown2.Value - 1 Then //se abbasso il valore allora sottraggo 1000 
                TextBox2.Text -= 1000
            End If
        End If
    End Sub 

quando abbasso il valore del numericupdown invece di sottrarre i 1000 continua ad addizionare fino a che non arriva al minimo (0)

quale puo' essere il problema?