Salve a tutti.

Prova così:
codice:
Public Class Form1
   Dim OriginalValue As Integer = 0 'o il valore iniziale della NumericUpDown.

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

        TextBox2.Text = NumericUpDown1.Value

        If NumericUpDown2.Value = OriginalValue + 1 Then
            TextBox2.Text += costo
        Else
            If NumericUpDown2.Value = OriginalValue - 1 Then
                TextBox2.Text -= 1000
            End If
        End If
       
       OriginalValue = NumericUpDown2.Value
    End Sub
End Class