CREATE TABLE Tabla_externa
CAMPO_1		VARCHAR2(100),
CAMPO_2          VARCHAR2(100),
CAMPO_3          VARCHAR2(100),
)
  ORGANIZATION EXTERNAL (
   DEFAULT DIRECTORY  LOAD_DIR 
    ACCESS PARAMETERS(RECORDS DELIMITED BY 0x'0a' 
      BADFILE 'LOAD_DIR':'Tabla_externa.bad'            
      LOGFILE 'LOAD_DIR':'Tabla_externa.log'          
      SKIP 1
      FIELDS TERMINATED BY ';'                                                     
      MISSING FIELD VALUES ARE NULL             
    )
   LOCATION (
    LOAD_DIR:'Tabla_externa.txt'
   )
  )

   LOCATION (
    LOAD_DIR:'\Tabla1\Tabla_externa.txt'
   )

Private Sub Up_BLOB(campo_blob As String, sql As String, Path As String)
    Dim rs As ADODB.Recordset
    Dim stm As ADODB.Stream
    
    
    Set rs = New ADODB.Recordset
    rs.Open sql, CNN, adOpenKeyset, adLockOptimistic

    Set m_stream = New ADODB.Stream
    m_stream.type = adTypeBinary
    m_stream.Open
    m_stream.LoadFromFile Path
    rs.Fields(campo_blob).Value = m_stream.Read
    rs.Update

    rs.Close

End Sub

 RegExp.Pattern = "(\d{4})-(\d{8})  

str="1234-87654321"

str4dig = objRegExp.Replace(str, "$1")

str8dig = objRegExp.Replace(str, "$2")

 RegExp.Pattern = "(?<cuatro>\d{4})-(?<ocho>\d{8})