Assigning a number value to a combobox

[glockster]

In Excell 2002:
I'd like to assign a number value (3 points, 2 points, etc) depending on a text selection made in a combobox on a userform.
In otherwords: If you select "oranges" in the combobox, you are assigned a score of 2 points, those 2 points are added to the points of 3 other combobox selections and the result is displayed in a textbox on the same userform.
Thanks for any insight!

 

[Juan Pablo González]

If you have a table that describes those entries in a Range for example:

Book1
	A	B	C	D
1	Fruit	Points
2	Apple	1
3	Oranges	2
4	Bananas	3
Sheet1

then, in the code module for the Userform, put something like this:<font face=Courier New><SPAN style="color:#00007F">Option</SPAN><SPAN style="color:#00007F">Explicit</SPAN><SPAN style="color:#00007F">Private</SPAN><SPAN style="color:#00007F">Sub</SPAN> ComboBox1_Change()
    <SPAN style="color:#00007F">If</SPAN> ComboBox1.ListIndex >= 0<SPAN style="color:#00007F">Then</SPAN>
        TextBox1.Value = ComboBox1.List(ComboBox1.ListIndex, 1)
    <SPAN style="color:#00007F">End</SPAN><SPAN style="color:#00007F">If</SPAN><SPAN style="color:#00007F">End</SPAN><SPAN style="color:#00007F">Sub</SPAN><SPAN style="color:#00007F">Private</SPAN><SPAN style="color:#00007F">Sub</SPAN> UserForm_Initialize()
    <SPAN style="color:#00007F">With</SPAN> ComboBox1
        .Clear
        .ColumnCount = 2
        .BoundColumn = 1
        .ColumnWidths = "; 0"
        .List = Sheets("Sheet1").Range("A2:B4").Value
    <SPAN style="color:#00007F">End</SPAN><SPAN style="color:#00007F">With</SPAN><SPAN style="color:#00007F">End</SPAN><SPAN style="color:#00007F">Sub</SPAN></FONT>

 

[glockster]

Thank you!