CARREGAR ARQ TEXTO PARA MSFLEXGRID

PAMALAGOLI 14/12/2010 09:43:37
#359496

Pessoal, estou tentando carregar um arquivo texto para um MSFlexGrid e tá dando erro. Primeiro eu usava o arquivo Cópia de controlememodpgp10.txt que acho que é um arquivo de largura fixa ( As colunas tem o mesmo espaço entre elas. Inclusive fiz um téste importando para o excel e acusa que ele é de largura fixa).Como não está funcionando, criei um novo arquivo chamado Testar_Txt_para_MSFlexGrid.txt com as colunas delimitadas com ponto e vírgula. Ele ficou assim:
1000/10;09/12/10;DPGP/DVSS;Paulo Malagoli;Teste carregar dados txt p/ MSFlexGrid
Fiz isso, pq verifiquei que no Painel de Controle o Separador de lista está como ponto e vírgula. O erro que aparece nos dois aquivos é este: Run -Time error[ô]13[ô] Type Mismatch
O codigo q tô usando:

Public Sub Carrega_Atualiza_Memo_MSFlexGrid()
Arq_ContrMemoDPGP = [Ô]C:\Documents and Settings\PauloM\Desktop\Testar_Txt_para_MSFlexGrid.txt[Ô]
c = 0
Open Arq_ContrMemoDPGP For Input As #1
Do While Not EOF(1)
Dim Valores()
c = c + 1
Debug.Print c
Line Input #1, linha
Debug.Print linha
Valores = Split(linha, [Ô];[Ô]) [ô] Erro nesta linha

MSFlexGrid1.TextMatrix(c, 0) = Valores(0)
MSFlexGrid1.TextMatrix(c, 1) = Valores(1)
MSFlexGrid1.TextMatrix(c, 2) = Valores(2)
MSFlexGrid1.TextMatrix(c, 3) = Valores(3)
Loop
Close #1
End Sub

Ficaria agradecido com qualquer ajuda.