Veja como consegui

 

primeiro tive de mudar o lvArray para lista, ele apresentava erro pra mim, dizendo que o nome já existia na biblioteca do visual basic

 

depois identifiquei que realmente seu array estava sendo colocado da seguinte forma, ele somava as letras fazia multiplicação enfim um emaranhado, então simplismente coloqeui a letra G para dimensiona-lo ficando o código assim veja na integra o que fiz:

 

primeiro criei um arquivo texto com os dados que você postou, peguei seu código e fiz esta alteração:

 

Dim Lista() As String

 

Private Sub Command1_Click()
F = FreeFile
Open App.Path & "Bilhetes_record_08.txt" For Input As F

Do While Not EOF(F)
    Line Input #F, linha 'uma linha do arquivo texto
   
    For i = 1 To Len(linha)
        lvMinPos = InStr(i, linha, "|")
        lvMaxPos = InStr(lvMinPos + 1, linha, "|")
        lvLenPos = lvMaxPos - lvMinPos
        If i < Len(linha) Then
            lvStr = Mid(linha, lvMinPos + 1, lvLenPos - 1)
            i = lvMaxPos - 1
        End If
        g = g + 1
        ReDim Preserve Lista(g) As String
        Lista(g) = lvStr
        Next i
Loop
      
End Sub

 

 

Private Sub Command2_Click()
  Label1.Caption = Lista(1) ' exibe os dados da linha 1
End Sub

 

Private Sub Form_Load()
g = 1
End Sub

 

e pronto veja se resolve pra você

 

Caro Treze,

 

Muito obrigado por sua ajuda. Vou testar e posto o resultado.

 

 

Caro Treze,

 

Teste usando seu codigo e funcionou perfeitamente. Obrigado!!

Só para finalizar, o que tem de errado nesta instrução sql?

 

INSERT INTO Bilhetes(Campo2, Campo3, Campo4, Inicio, Termino, Duracao, Campo8, Campo9, Ramal Campo11, Interlocutor, Campo13, Campo14, Caminho, Operador) VALUES ('591-258895', '0', '0', #15/2/2008 08:00:11#, #15/2/2008 08:00:19#, '08', '1492', '21', '8116', '8116', '0217188293018', '', '', 'HD002/D00001/2008_02_15/H08/A00591/M_62287.WAV', '6032')

 

 

qual erro apresenta

 

pois o unico erro qeu vi foi este

 

Dois campos do string que tratei estavam sem valores e como são do tipo texto coloquei entre aspas, mas agora tá resolvido. Valeu camarada!!