Excel Log Function is Log(Base10)
VBA Log Function is Natural Log

Change this line as shown
 K_Array(CR) = Log(Split(FileLines(CR), ",")(F)) / Log(10#)
New result =
table_aapl_test.csv 0.50476314127199400