'Ein Form mit einem Commandbutton und einer Combobox
Private Sub Command1_Click()
Dim dZahl As Double
dZahl = CDbl(Combo1.Text)
dZahl = dZahl + 1
MsgBox CStr(dZahl)
End Sub
 
Private Sub Form_Load()
Combo1.AddItem "10"
Combo1.AddItem "15"
Combo1.AddItem "20"
End Sub