Visual Basic 6 - spazio vuoto nella combo1

Ciao a tutti!
Allora, io ho una combobox (combo1) e 2 pulsanti (command1 e command2).
nella lista della combo1 c'è solo 1 elemento ed è "bosco"
Nel command1 c'è questo codice:

Dim klo As Long
klo = Combo1.ListCount
Dim w As Long
Open App.Path & "\dati\luoghi.dat" For Output As #1
For w = 1 To klo
Print #1, Combo1.List(w)
Next w
Close #1

che serve x salvare il contenuto della combo1.

Nel command2 c'è questo codice:

Dim gh(1 To 99999) As String
Dim gj As Integer
Dim y As Integer
Open App.Path & "\dati\luoghi.dat" For Input As #1
Do
gj = gj + 1
Line Input #1, gh(gj)
Loop Until EOF(1) = True
Close #1

For y = 1 To gj
Combo1.AddItem gh(y)
Next y

che serve per caricare gli elementi salvati nella combo1.

Teoricamente dovrebbe succedere che se premo salva mi salva la parola "bosco" e fino a qui ci siamo. Solo ke me la salva con un accapo e quindi quando carico la combo1 mi viene bosco ma anke 1 altro "elemento" vuoto, cioè c'è uno spazio vuoto. Come posso fare x eliminarlo?

nn devi eliminarlo, basta nn devi salvare la riga vuota:

Dim klo As Long
klo = Combo1.ListCount [b]-1[/b]
Dim w As Long
Open App.Path & "\dati\luoghi.dat" For Output As #1
For w = 1 To klo
Print #1, Combo1.List(w)
Next w
Close #1

il listcout restituisce il numero di elementi in una lista e nn l' indice dell' ultimo elemento...
es: ci sono 2 (A,B) elementi in una combo
listcout=2, ma l' indice di B nn è 2 ma 2-1, questo xk la combo inizia a contare da 0 (l' indice di A è infatti 0)

nn devi eliminarlo, basta nn devi salvare la riga vuota:

Dim klo As Long
klo = Combo1.ListCount [b]-1[/b]
Dim w As Long
Open App.Path & "\dati\luoghi.dat" For Output As #1
For w = 1 To klo
Print #1, Combo1.List(w)
Next w
Close #1

il listcout restituisce il numero di elementi in una lista e nn l' indice dell' ultimo elemento...
es: ci sono 2 (A,B) elementi in una combo
listcout=2, ma l' indice di B nn è 2 ma 2-1, questo xk la combo inizia a contare da 0 (l' indice di A è infatti 0)

Purtroppo quando vado a salvare il file, mi cancella bosco cioè nel file luoghi.dat risulta non esserci + niente, mentre invece ci dovrebbe essere bosco..

Cmq grazie x l'aiuto!

fa partire la w da 0
[codefor w=0 to ...]

Grazie ora tutto funziona come deve!