Code:

Dim ff As Integer
Dim t As Integer

ff = Freefile()

Open "myfile.ext" For Output As #ff

Do While imastadaseupisuje ' Ovo ces zameniti nekim tvojim uslovom
    
    t = t + 1
    Print #ff, t, intP(1), intP(2), intP(3), intP(4), intP(5)

Loop

close #ff

Code:

Dim ff As Integer
Dim t As Integer

t = vrednostposlednjegupisa ' Ovo ces zameniti nekom tvojom promenljivom gde ce ti biti zabelezena vrednost promenjljive t od poslednjeg upisa

ff = Freefile()

Open "myfile.ext" For Append As #ff

Do While imastadaseupisuje ' Ovo ces zameniti nekim tvojim uslovom
    
    t = t + 1
    Print #ff, t, intP(1), intP(2), intP(3), intP(4), intP(5)

Loop

close #ff

Code:

Private Sub PrintLines(file As String, txt As String)
Dim C As Integer, P1 As Integer, P2 As Integer: C = 1: P1 = 1: P2 = 0
Dim hFile As Integer: hFile = FreeFile
Open file For Output As #hFile

While P1 < Len(txt)
P2 = InStr(P1, txt, vbCrLf): If P2 = 0 Then P2 = Len(txt) + 1
If Not P2 = P1 Then Print #hFile, CStr(C) & ".   " & Mid(txt, P1, P2 - P1)
C = C + 1: P1 = P2 + Len(vbCrLf)
Wend
Close #hFile
End Sub

Private Sub Form_Load()
Dim str As String
str = "Linija jedan" & vbCrLf & _
        "Linija dva" & vbCrLf & _
        "Linija tri"
PrintLines "C:\Fajl1.txt", str
PrintLines "C:\Fajl2.txt", ""
End Sub

Code:

1.   Linija jedan
2.   Linija dva
3.   Linija tri

Code:

vrednostposlednjegupisa 
imastadaseupisuje