The Microsoft Multimedia Control lets you easily determine the total playing time of an Audio CD: you only need to correctly initialize the control and then decipher the value returned by its Length property. Use the following code as a guideline for your routines:

Private Sub cmdDisplayTime_Click()    Dim Value As Integer    Dim TotalTime As String        With MMControl1        ' Initialize the Multimedia control        .DeviceType = "CDAudio"        .TimeFormat = 10        .Command = "Open"        ' seconds are held in the most significant byte        Value = (.Length  256) And 255        TotalTime = Right$("0" & CStr(Value), 2) & """"        ' minutes are held in the least significant byte        Value = (.Length And 255) Mod 60        TotalTime = Right$("0" & CStr(Value), 2) & "' " & TotalTime        Value = (.Length And 255)  60        If Value > 0 Then            ' display hour value only if necessary            TotalTime = CStr(Value) & "h " & TotalTime        End If        MsgBox TotalTime    End With    End Sub