' Gesamtspielzeit ermitteln
Public Function mciGetLength() As Long
   Dim sBuffer As String
   On Error Resume Next
   mciSendString("status TempMCI length", sBuffer, Len(sBuffer), 0)
   mciGetLength = Val(sBuffer)
End Function
...
Variable = mciGetLength()