Excel 如何在MAC上获取音频文件的持续时间

我需要帮助转换我编写的代码，在PC上获取音频文件的持续时间，在MAC上运行

Function GetAudioFileDuration(ByVal Directory As String, ByVal FileName As String) As Date
    Const LENGTH = 27
    Dim ShellApplication As Object
    Set ShellApplication = CreateObject("Shell.Application")

    Dim Folder As Object
    Set Folder = ShellApplication.Namespace(CStr(Directory))

    Dim File As Object
    Set File = Folder.ParseName(FileName)
    GetAudioFileDuration = Folder.GetDetailsOf(File, LENGTH)
End Function