Arquivo texto

Question

E ai pessoal tudo bem,

Criei um arquivo texto desta forma:

Public Sub CriaArqTexto()
 
  On Error Resume Next
  Dim fFileObjectIni As FILECTLCtl.File
  Dim strLinhaini As String
  Dim strArquivo As String
 
   Set fFileObjectIni = CreateObject("FILECTL.File")
   
   ' Path de onde está localizado o arquivo texto
    strArquivo = "\teste\Teste.txt"
   
    'criando o arquivo:
    fFileObjectIni.Open strArquivo, fsModeAppend
   
    'inserindo dados
    strLinhaini = "Teste Arquivo"
    fFileObjectIni.LinePrint strLinhaini
   
    strLinhaini = "cont=0"
    fFileObjectIni.LinePrint strLinhaini
   
    strLinhaini = ""
   
    'Fechando o arquivo
    fFileObjectIni.Close
   
End Sub

Agora, depois que o arquivo ja foi criado, preciso fazer a leitura desse arquivo e verificar se CONT = 0. Como faço isso?

Estou usando a ferramenta: EMBEDDED VISUAL BASIC