[vb6] Colonna con numero di righe accanto a una text

[ianstilo]

come fare...

vorrei avere il numero di riga accanto alle righe utilizzate in una text...cioè...se il documento è lungo una sola riga...posso avere anche solo il numero 1 di fianco..

[junx]

    Dim s As String
    Dim f As Integer
    Dim i As Integer
    i = 1
    f = FreeFile
    Open "c:\stringa.txt" For Input As f
        Do While Not EOF(f)
            Line Input #1, s
            Text1 = Text1 & i & " " & s & vbCrLf
            i = i + 1
        Loop
    Close f

Prova.