Just for reflection's sake:

Sub M_snb()
    c00 = "C:\TestFolder\"
    sn = Filter(Split(CreateObject("wscript.shell").exec("cmd /c Dir """ & c00 & "*.csv"" /b /s").stdout.readall, vbCrLf), ".")
     
    With CreateObject("scripting.filesystemobject")
        For j = 0 To UBound(sn)
          sp = Filter(Split(.opentextfile(sn(j)).readall, vbCrLf), ",")
          
          For jj = 0 To UBound(sp)
            sp(jj) = Log(Split(sp(jj), ",")(5)) / Log(10)
            If j > 1 Then y = y + Abs(sp(jj - 1) - sp(jj - 2)) * Abs(sp(jj) - sn(jj - 1))
          Next
          
          sn(j) = [Pi() / 2] * y * (UBound(sp) + 1) / UBound(sn) * 10 ^ 4
        Next
    End With
    
    Sheet1.Cells(1).Resize(UBound(sn) + 1) = Application.Transpose(sn)
End Sub