Private Sub cmdCalculate_Click() Dim iCounter As Integer iCounter = 45 MsgBox "Ausgewählter Wert * " & _ iCounter & ": " & cboValues.Value * iCounter End Sub