Private Sub Command1_Click()
  Dim varAbc As Variant 'Aramazena linha lida do arquivo texto
  Open "C:Teste.txt" For Input As #1
  Do While Not EOF(1)
    Line Input #1, varAbc
    subInsere varAbc
  Loop
  Close #1
End Sub

Private Sub subInsere(varAbc As Variant)
  Dim varNovaAbc As Variant 'Valores a serem inseridos, inicia com a linha lida depois vai sendo retirado os valores insridos
  Dim intPosicao As Integer 'Posição no caracter (limitador) na string
  varNovaAbc = varAbc
  intPosicao = InStr(1, varNovaAbc, "|")
  'Verifica se encontrou o limitador
  If intPosicao <> 0 Then
    'Faça enquanto tiver cacarter na string
    Do While Len(varNovaAbc) > 0
        'Insere na tabela
        vgdb.execute "Insert Into Tabela (Campo) Values ('" & Mid(varNovaAbc, 1, intPosicao - 1) & "')"
       
        varNovaAbc = Mid(varNovaAbc, intPosicao + 1) 'Retira valor inserido da string
        intPosicao = InStr(1, varNovaAbc, "|") 'pega nova posição do limitador
        
        'se não encontrou o limitador e ainda tem caracter na string,
        'então é o último elemento, insere e sai foi do laço
        If (intPosicao = 0) And (Len(varNovaAbc) > 0) Then
          vgdb.execute "Insert Into Tabela (Campo) Values ('" & varNovaAbc & "')"
          varNovaAbc = ""
          Exit Do
        End If

    Loop
  'se não encontrou o limitador, mas tem caracter na string, insere o elemento
  ElseIf (Len(varNovaAbc) > 0) Then
    vgdb.execute "Insert Into Tabela (Campo) Values ('" & varNovaAbc & "')"
    varNovaAbc = ""
  End If
End Sub