Visual Basic - Tomar valor de ListBox

Como tomo el valor de un listBox, lo que necesito es recorrer un listbox e ir agregando el contenido de cada item a un archivo

Para agregar item es list1.additem
eso ya lo hice ahora quiero recorrer la lista de la forma

i = 1
do while i < list1.listcount
aqui tomo el valor actual de la lista
print #1, Variable
loop

ejemplo:

For a = 0 To lstFamilia.ListCount - 1
If lstFamilia.Selected(a) = True Then
fam = lstFamilia.ItemData(a)
fam = "'" & fam & "',"
familia = fam & familia
End If
Next

si esta seleccionado lo agrego a una variable familia.

Ok pruebo

Graciasssss