List Box and length

[ten]

Hi,
I need to get a way to figure out hos many items I have in
a Listbox, to loop through all and get the values from it.
Can anybody help?

Here is my code - I would like my "i" to get the number of
items, and then loop through all of them later.:

Set myWb = ActiveWorkbook
Set myWsBudGrunnlag = myWb.Worksheets.Item
("Budget")
Set myWsNokkeltall = myWb.Worksheets.Item
("KeeFigures")

Dim cboEiendom As Object
Set cboEiendom = myWsBudGrunnlag.Shapes.Item
(1).OLEFormat.Object.Object
Dim i
i = 100 ' This is the integer i would like to set
equal the number of items in the Listbox called
cboEiendom, for looping through under

Dim j
For j = 1 To i

strEiendom = cboEiendom.List(j - 1)
myWsNokkeltall.Cells(j + 2, iColEiendom).Value
= strEiendom

' Some more code...

Next j


Please advice, thx!

Best regrads,
Tor Erik