Private Sub Command1_Click()
Dim dZahl As Double
Dim sStr As String
sStr = Combo1.Text
dZahl = CDbl(Trim(Mid(sStr, InStr(1, sStr, "=") + 1)))
dZahl = dZahl + 1
MsgBox CStr(dZahl)
End Sub
 
Private Sub Form_Load()
Combo1.AddItem "Medium1 = 2"
Combo1.AddItem "Medium2 = 20"
Combo1.AddItem "Medium3 = 200"
End Sub