How i do this on WeblistBox
Dim ss As String ss=ListBox1.Cell(ListBox1.ListIndex,1)
just the same way.
ok