Adding the content of cboBox

[kokopeli]

How do I add the items in a combo box. I tried this code, but if I put in 100,100,200, it adds 100 three times.Private Sub Command1_Click()

Dim x As Integer
Dim i As Integer
Dim sum As Integer
i = 0
Do Until i = combo.ListCount
sum = sum + combo.List(x)
i = i + 1
Loop

txtSum = sum + Val(txtOpen.Text)
End Sub