Private Declare Function mciGetErrorString Lib "winmm" Alias _    "mciGetErrorStringA" (ByVal dwError As Long, ByVal lpstrBuffer As String, _    ByVal uLength As Long) As Long' Get the description of a MCI error.'' ErrorCode is the code of the error' Return a string with the description of the error.Function GetMCIErrorString(ErrorCode As Long) As String    Dim buffer As String * 256    mciGetErrorString ErrorCode, buffer, Len(buffer)    GetMCIErrorString = Left$(buffer, InStr(buffer, vbNullChar) - 1)End Function