Visual Basic - ayuda con list

mi problema es con el trato de un listbox.
necesito recorrer el listbox y saber cual esta marcado por el raton y usuarlo:
For i = 0 To lstevaluados.ListCount Step 1
z = lstevaluados.Text 'el problema esta aki
MsgBox (z)
conexion.Execute ("INSERT INTO evaluaciones (cod_evaluador, cod_evaluado) VALUES (" & frmpersonal.txtcodigo.Text & ", " & z & ") ")
Next i
con el for lo recorro y guardo en z el que este marcado y guardo su contenido en la base de datos. alguien me ayuda. gracias

Hace mucho q no trabajo con las list, sin embargo para obtener la posicion de un elemento tendrias q poner:
z= lstevaluados.listindex
para ver el contenido seria asi:
z= lstevaluados.list (lstevaluados.listindex)

Espero q te ayude, sino mandame un correo o aclara la duda q te quede por este foro.

Simplemente debes consultar:
For ...
if lstevaluados.Selected(i) = true then
/*AQUI TU CODIGO DE INSERCION*/
end if
NEXT i

hola soy ivan otra vez no se si no me he explicado bien o q pero sigue sin salirme de ninguna manera.
explico lo que tiene q hacer: tengo una listbox (lstevaluadores2)con elementos y lo que tiene que hacer es coger el elemento qesta seleccionado de la lista, no el index sino el texto y guardarlo evaluaciones el recordser esta hecho y bien xq en otra parte del codigo me lo guarda pero cogiendo los datos de txt.
For j = 0 To lstevaluadores2.ListCount Step 1
If lstevaluadores2.Selected(j) = True Then
z = lstevaluados2.List(lstevaluados.ListIndex)
MsgBox (z)
conexion.Execute ("INSERT INTO evaluaciones (cod_evaluador,cod_evaluado) VALUES (" & z & ", " & frmpersonal.txtcodigo.Text & ") ")
End If
Next j

alguien me sabe ayudar??? ggracias

Ya te di la solución en el post anterior.
Cuando selected(i) = true, solo tienes que consultar el valor del elemento de la lista con indice (i). Este valor es el texto del elemento seleccionado.

al picar sobre un elemento del listbox, este elemento es

nombre=List1.List(List1.ListIndex)

y el lugar que ocupa es

lugar=List1.ListIndex

saludos