Private Sub Form_Load()
  With Combo1
    .AddItem "Heizungsausfall für bis zu 4 Wochen": .ItemData(.NewIndex) = 10
    .AddItem "Heizungsausfall mehr als 4 Wochen":   .ItemData(.NewIndex) = 50
    .AddItem "Baulärm":                             .ItemData(.NewIndex) = 25
    .AddItem "Gerüstbau":                           .ItemData(.NewIndex) = 15
  End With
End Sub

Private Sub Command2_Click()
  With Combo1
    If .ListIndex >= 0 Then
      Label9.Caption = Label8.Caption - .ItemData(.ListIndex) / 100 & " €"
      Form7.lbl_Gruende.Caption = .Text
    End If
  Else
    MsgBox "Wählen Sie erst aus dem linkem DropDown-Menue den Minderungsgrund", _
      , "Fehlende Eingabe"   
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de