duda sobre listboxes

hola miren les muestro el codigo que tengo hecho, no estoy entendiendo como
recorrer bien un listbox y que me muestre en un msgbox los valores
seleccionados.
Dim i As Integer

For i = 1 To certprocesos.Items.Count - 1

If DirectCast(certprocesos.SelectedItem, cvalores).valor > 0 Then

MsgBox(DirectCast(certprocesos.SelectedItem, cvalores).valor)

End If

Next

PD: el DirectCast lo tengo porque cuando uso certprocesos.items.add(new
cvalores("","")) lo uso para poder tener texto y valor del item.
Saludos,

Walter