[VISUAL BASIC 6.0] Caricamento listbox tramite file

[M4tRiX83]

Ciao,

ho un problema nel caricare una listbox leggendo i dati inseriti in un file:

ho dichiarato in un modulo questo tipo di dato:

Public Type Dati
Nome As String * 50
Età As Integer
End Type

Dim Corrente As Dati

Per caricare il file avevo pensato a questo codice(avviene al click di un pulsante):

Indice = LOF(NFile) / Len(Corrente) + 1
Put NFile, Indice, Corrente

I dati da mettere in Nome ed Età sono inseriti in 2 textbox.

Il problema è che quando cerco di caricare i dati in una listbox viene inserita anche una riga bianca che non centra niente (in fondo se non lo ordino (tramite la proprietà "sort), all'inizio se imposto la proprietà "sort" a true), il codice che ho usato per caricare la listbox è il seguente:

Open App.Path & "\DatiPersona.dat" For Random As NFile Len = Len(Corrente)

Do While Not EOF(NFile)
Get NFile, , Corrente
list1.AddItem Corrente.Nome
Loop

Non so proprio come riuscire a non far caricare quella riga bianca...

Ringrazio anticipatamente per l'aiuto...ciao

[M4tRiX83]

Finalmente sono riuscito ad arrivare alla soluzione del mio problema, la inserisco nel caso possa servire a qualcuno:
l'errore era nella lettura del file:

Do While Not EOF(NFile)
Get NFile, , Corrente
list1.AddItem Corrente.Nome
Loop

Così facendo ciclava una volta in più poiché prima inserive il record e successivamente faceva i controllo sull'EOF, quindi arrivati all'ultimo record, prima inseriva un altro record (ovviamente vuoto)e successivamente rilevava l'EOF.
La soluzione che io ho trovato è la seguente:

Get NFile_Informatica, , EsameCorrente

Do While Not EOF(NFile_Informatica)
lstEsami.AddItem Trim(EsameCorrente.NomeEsame)
Get NFile_Informatica, , EsameCorrente
Loop

Ciao...