Change Listbox Item (multicolumn value)

[maria90]

I have a multicolumn listbox. I would like the user to be able to change the selected value with an input box.

This is the code which I have written so far - with an example value

Dim intListitem As Integer
intListitem = lstOrders.ListIndex
Me.lstOrders.List(intListitem) = "12.12.2012"

When the user double clicks on an item, the code retrieves the index number.
For a test, I set the code to rewrite the selected item with "12.12.2012".

Here is the problem: The code loops many times until it stops. Why?
My second question is about the column. How do I change the third item only?
With the current code, the value is put into the first column.

The listbox - lstOrders

¦-----------------¦-----------------¦-----------------¦
¦                 ¦                 ¦                 ¦
¦                 ¦                 ¦                 ¦
¦        0        ¦        1        ¦        2        ¦
¦                 ¦                 ¦                 ¦
¦                 ¦                 ¦                 ¦
¦-----------------¦-----------------¦-----------------¦
¦                 ¦                 ¦                 ¦
¦                 ¦                 ¦                 ¦
¦      ID         ¦       Date      ¦     Customer    ¦
¦                 ¦                 ¦                 ¦
¦                 ¦                 ¦                 ¦
¦-----------------¦-----------------¦-----------------¦

Thanks for your help!

 

[CalcSux78]

Since your ListBox is 2D, you would need to reference the row,column to change:

Private Sub lstOrders_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim Row As Integer
Dim Col As Integer

'I always want the 3rd column in listbox to be the one updated
Col = 2     'First item = 0

With lstOrders
    Row = .ListIndex
    .List(Row, Col) = "12/12/2012"
End With
End Sub