Salve, devo visualizzare in una listbox il contenuto di un file di testo a partire dalla riga 17. ho pensato di fare un type con 2 campi; il primo contiene l'indice della riga, il secondo i dati. Il problema è che nella listbox vengono visualizzati solo i primi 2 caratteri della stringa... sapete aiutarmi? Ecco qui il codice:

Private Sub menu1mostra_Click(Index As Integer)
fn = FreeFile
x.id = 0
Open cd.FileName For Input As fn

Do
Line Input #fn, x.dati
x.id = x.id + 1
If x.id >= 17 Then
List1.AddItem Val(x.dati)
End If
Loop Until EOF(fn)

End Sub

e questo è il modulo:

Public Type giorno
id As Integer
dati As Variant
End Type

Public x As giorno
Dim fn As Integer

grazie a tutti