listbox question again

Hi again,

I have another problem with my listbox. I go through all the checkboxes to see if they are checked and that works fine. But now i want to get the text out of the row that im currently on. Somehow i only get the text in the last row for all the checked rows. Thats a bit strange because i know they have different descriptiontexts. Can someone help me with this?

post yer code and we'll have a giggle er, I mean have a look at it!

For m_iListCount = 0 To m_iTotalCount
m_sProdMoment = lstProductmoment.Text
Debug.Print m_sProdMoment
If lstProductmoment.Selected(m_iListCount) = True Then
m_sXmlProdNod.addNode ("ProduktMoment" & m_iPrdmomCount)
m_sXmlProdNod.nodeValue("ProduktMoment" & m_iPrdmomCount) = m_sProdMoment
Debug.Print oXmlDocument.xml '=8=
m_iPrdmomCount = m_iPrdmomCount + 1
End If
Next m_iListCount
m_iListCount = 0

Should not be that hard to get the text of an item:

Code:

---

For m_iListCount = 0 To m_iTotalCount
    m_sProdMoment = lstProductmoment.Text
    Debug.Print m_sProdMoment
    If lstProductmoment.Selected(m_iListCount) = True Then
        m_sXmlProdNod.addNode ("ProduktMoment" & m_iPrdmomCount)
        m_sXmlProdNod.nodeValue("ProduktMoment" & m_iPrdmomCount) = m_sProdMoment
        Debug.Print oXmlDocument.xml '=8=
        Debug.Print lstProductmoment.List(m_iListCount)
        m_iPrdmomCount = m_iPrdmomCount + 1
    End If
Next m_iListCount
m_iListCount = 0

---

that's what you need?