Jag tilldelar listan värden på följande sätt:

temp = Me.txtISBN & vbTab & Me.txtTitel & vbTab & Me.txtAntal & vbTab & Me.txtPrs
Me.lstOrderRader.AddItem temp

Jag lyckas hämta första värdet mha följande:

temp = Me.lstExistBok.List(Me.lstExistBok.ListIndex) & ";"
ISBN = Left(temp, InStr(temp, vbTab) - 1)

Nu får jag problem att hämta värdet för antal som är tredje värdet i listan

Finns säkert en bra lösningen, har dock problem med hjälpen för vb som inte fungerar.

Tacksam för svar
MVH Niclas

Om någon skulle titta här har jag löst det med följande:
Dim aString as variant
dim temp1 as String

temp1 = Me.lstOrderRader.List(Me.lstOrderRader.ListIndex)
//Ovanstående rad hämtar in aktuell rad i listanHämtar in värden
aString = Split(temp1, vbTab)
//Ovanstående rad delar upp temp1 strängen där tab är avskiljare
Antal = aString(2)
//Ovanstående rad tilldelar antal värdet i aString på pos (2)


temp1 = Me.lstOrderRader.List(Me.lstOrderRader.ListIndex) '& ";"
temp = Me.lstOrderRader.ItemData(I) ' .List(Me.lstOrderRader.ListIndex) & ";"
aString = Split(temp1, vbTab)
Antal = aString(2)
MVH
Niclas