FAZER CONSULTA EM UM ARQUIVO TEXTO

Private Sub Text1_Change()
Dim F As Integer
Dim mLinha As String
Dim Loc() As String
F = FreeFile
If Len(Text1.Text) > = 5 Then
Open [Ô]c:\bd.txt[Ô] For Input As #F
List1.Clear [ô] <<<-----
Do While Not EOF(F)
   Line Input #F, mLinha
   If InStr(1, UCase(mLinha), UCase( Text1.Text) ) > 0 Then
   Loc = Split(mLinha,vbTab)
List1.Visible = True
   List1.AddItem mLinha
   End If
Loop
Close #F
End If
End Sub

Private Sub LeOriginal(mFile As String)
Dim mStr As String
Dim F As Integer

F = FreeFile
Open mFile For Input As #F
Do While Not EOF(F)
    Line Input #F, mStr
    List1.AddItem mStr
Loop
Close #F
End Sub

Private Sub GravaDestino(mFile As String)
Dim mStrAtu As String
Dim mStrAnt As String
Dim F As Integer
Dim G As Integer

mStrAnt = [Ô][Ô]
F = FreeFile
Open mFile For Output As #F

For G = 0 To List1.ListCount - 1
    mStrAtu = List1.List(G)
    If mStrAtu <> mStrAnt Then
        mStrAnt = mStrAtu
        Print #F, mStrAtu
    End If
Next
Close #F
End Sub