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