Code:
Open "C:\tekst.txt" For Input As #1
Do Until EOF(1)
Line Input #1, LineOfText$
Text$ = Text$ & LineOfText$ & vbCrLf & Wrap$
Loop
Text1.Text = Text$         'gde ti je Text1 ime textbox-a

Code:
Open "C:\tekst.txt" For Input As #1
Do
Input #1, a
List1.AddItem a     'gde ti je List1 ime Listbox-a
Loop Until EOF(1)

Code:
Open "C:\tekst.txt" for Output as #2
Print #2, Text1.Text
Close #2

Code:
Open "C:\tekst.txt" For Output As #2
For i = 0 To List1.ListCount
Print #2, List1.List(i)
Next i

Code:

    Dim sBuff As String
    Dim sTemp As String
    
    Open "c:\test.txt" For Input As #1     
    Open "c:\output.txt" For Output As #2  
    
    Do Until EOF(1) 'read in file until done
        Line Input #1, sBuff
        If Trim(sBuff) = "" Then      
            sTemp = "i love ars"     
            Do Until Trim(sTemp) = ""
                Line Input #1, sTemp
                DoEvents
            Loop
        Else
            Print #2, sBuff           
        End If
        DoEvents
    Loop
    Close #1
    Close #2

Code:

Dim sBuff As String
    Dim sTemp As String
    
    Open "c:\1a.txt" For Input As #1     
    Open "c:\11.txt" For Output As #2  
    
  Do Until EOF(1) 'read in file until done
        Line Input #1, sBuff
        If Trim(sBuff) = sTemp Then      
            sTemp = "jejeje"     
            Do Until Trim(sBuff) = sTemp
                Line Input #1, sTemp
                DoEvents
            Loop
        Else
            Print #2, sBuff          
        End If
        DoEvents
    sTemp = sBuff
    Loop
    
    Close #1
    Close #2

Code:

Public Sub RemoveDuplicatatedLines(Filename As String, Optional Compare As VbCompareMethod = vbBinaryCompare)

    Dim fIn         As Integer
    Dim fOut        As Integer
    Dim sTemp       As String
    Dim sLine       As String
    Dim sBuffer()   As String
    Dim lLineCount  As Long
    Dim i           As Long
    Dim bDuplicate  As Boolean
    
    sTemp = Filename & ".~" & CStr(Int(Rnd * 99999))
    
    fIn = FreeFile
    
    ReDim sBuffer(1 To 50)
    lLineCount = 0
    
    Open Filename For Input Access Read As #fIn
        
        fOut = FreeFile
        
        Open sTemp For Output Access Write As #fOut
        
            While Not EOF(fIn)
                
                Line Input #fIn, sLine
                
                bDuplicate = False
                
                For i = 1 To lLineCount
                    If StrComp(sLine, sBuffer(i), Compare) = 0 Then
                        
                        bDuplicate = True
                        Exit For
                        
                    End If
                Next
                
                If Not bDuplicate Then
                    
                    Print #fOut, sLine
                    
                    If lLineCount >= UBound(sBuffer) Then
                        
                        ReDim Preserve sBuffer(1 To lLineCount + 50)
                    
                    End If
                    
                    lLineCount = lLineCount + 1
                    sBuffer(lLineCount) = sLine
                
                End If
            
            Wend
        
        Close #fOut
        
    Close #fIn
    
    FileCopy sTemp, Filename
    
    On Error Resume Next
    
    Kill sTemp
    
    On Error GoTo 0

End Sub

Code:

RemoveDuplicatatedLines "c:\test.txt"

Code:

Private Sub RemoveLines(strFileName As String)
On Error GoTo Err
Dim hFile As Integer, strLine As String, strBuffer As String
hFile = FreeFile
Open strFileName For Input As #hFile
Do Until EOF(hFile)
Line Input #hFile, strLine
If strBuffer = "" Then
strBuffer = strLine & vbCrLf
Else: If InStr(1, strBuffer, strLine) = 0 Then strBuffer = strBuffer & strLine & vbCrLf ' ako ga nemamo u string bufferu onda dodajemo
End If
Loop
Close #hFile
hFile = FreeFile
Open strFileName For Output As #hFile
Print #hFile, strBuffer
Close #hFile
Exit Sub
Err:
Debug.Print Err.Description
End Sub

Private Sub Command1_Click()
RemoveLines "c:\text.txt"
End Sub

Code:
Private Sub BinLaden(FileName As String)
Dim sFile As String, sFined As String, sOst As String
Dim lEnd As Long, lStart As Long
Dim hFile As Long
Const lCr = 2

    hFile = FreeFile
    Open FileName For Input As #hFile
    sFile = StrConv(InputB(LOF(hFile), hFile), vbUnicode)
    Close hFile
    
    lStart = 1
    lEnd = InStr(lStart, sFile, vbCrLf)
    
    Do While Not lEnd = 0
        sFined = Mid(sFile, lStart, lEnd - lStart + lCr)
        sOst = Replace(sFile, sFined, "", lEnd + lCr)
        sFile = Left(sFile, lEnd + 1) & sOst
        lStart = lEnd + lCr
        lEnd = InStr(lStart, sFile, vbCrLf)
    Loop
    
    On Error Resume Next
    Kill FileName
    
    hFile = FreeFile
    Open FileName For Append As #hFile
    Print #hFile, sFile
    Close hFile
    
End Sub