Public Sub OPenFile()
    Dim strCampos() As String, strTextoLinea As String, _
        Archivo As String
    Dim A As Long
    Dim NumArchivo As Integer
   
    Archivo = txtRutaLocal.Text & txtNomArchivo.Text
    NumArchivo = FreeFile()
   
    Open Archivo For Input As #NumArchivo
        Do While Not EOF(NumArchivo)
            Line Input #NumArchivo, strTextoLinea
            strCampos() = Split(strTextoLinea, "|")
            'MsgBox strCampos(0) 'AQUÍ SE CONOCE EL PRIMER REGISTRO
            'AQUÍ SE CREA LA BD CON EL NOMBRE DEL ARCHIVO
            'AQUÍ SE CREA LA TABLA CON EL NOMBRE DEL DATO 0
            For A = 0 To UBound(strCampos) - 1
                strDato = strCampos(A)
                MsgBox strDato
                'AQUÍ SE INSERTAN LOS DATOS EN DICHA TABLA
            Next A
        Loop
    Close #NumArchivo
End Sub