'Using OraClob.Read mechanism
Dim MySession As OraSession
Dim OraDb As OraDatabase

Set MySession = CreateObject("OracleInProcServer.XOraSession")
Set OraDb = MySession.OpenDatabase("exampledb", "samp/samp", 0&)
Dim OraDyn as OraDynaset, OraStory as OraClob, amount_read%, chunksize%, chunk

chunksize = 32767
Set OraDyn = OraDb.CreateDynaset("SELECT * FROM Multimedia_tab", ORADYN_DEFAULT)
Set OraStory = OraDyn.Fields("Story").Value

OraStory.pollingAmount = OraStory.Size 
'Read entire CLOB contents
Do
    amount_read = OraStory.Read(chunk, chunksize)
   'chunk returned is a variant of type byte array

Loop Until OraStory.Status <> ORALOB_NEED_DATA
