Dim nudc As Boolean
    Private Sub NumericUpDown1_ValueChanged(...) Handles ...
        If nudc Then Return
        If Not IsNothing(ListBox1.SelectedItem) Then
            '...
        Else
            nudc = True
            NumericUpDown1.Value = 0
            nudc = False
        End If
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist