AJUDA VB6 E ARQUIVO TXT

[txt-color=#e80000]dim lx as String[/txt-color]
Do While fsStream.AtEndOfStream = False  
       
[txt-color=#e80000]lx = fsStream.ReadLine
        
       If lx <> [Ô][Ô] Then

        line = Split(lx, [Ô]|[Ô])[/txt-color]
        NovoValor00 = Replace(line(0), [Ô][ô][Ô], [Ô] [Ô])
        NovoValor01 = Replace(line(1), [Ô][ô][Ô], [Ô] [Ô])
        NovoValor02 = Replace(line(2), [Ô][ô][Ô], [Ô] [Ô])
        NovoValor03 = Replace(line(3), [Ô][ô][Ô], [Ô] [Ô])
       
        
        
            con.Execute [Ô]INSERT INTO table(Col001, Col002, Col003, Col004)  VALUES ([ô][Ô] & NovoValor00 & [Ô][ô],[ô][Ô] & NovoValor01 & [Ô][ô],[ô][Ô] & NovoValor02 & [Ô][ô],[ô][Ô] & NovoValor03 & [Ô][ô])[Ô]
            sCodigo_cliente = oRsNome
            [txt-color=#e80000]End If[/txt-color]            
iContador = iContador + 1
            Form1.progressBar.Caption = iContador & [Ô] PDB[ô]s de [Ô] & Format$(num_lines)
            Form1.statusBar.Caption = [Ô]Importing PDB[ô]s[Ô]
            DoEvents

        Loop