GetVolumeInformation & GetLastError

If i use GetVolumeInformation on a CD drive with no disc in the drive it returns 0, if I then go on to use GetLastError that also returns 0 - shouldn't it be returning some nice error code for me? or do I presume that if the result of GetVolumeInformation is 0 then there is no disc in the drive?

Heres a snippet of the code I'm using, I may be using GetLastError wrong as I've never used it before.

VB Code:

If GetVolumeInformation(sDrives(l), sLabel, 255, lSerial, 0, 0, sFilesystem, 255) = 0 Then
        'Error when retrieving volume information, probably no disc in drive
        MsgBox GetLastError
        
        Dim sError As String * 255
        
        FormatMessage FORMAT_MESSAGE_FROM_SYSTEM, ByVal 0&, GetLastError, LANG_NEUTRAL, sError, 255, ByVal 0&
        
        MsgBox sError
      End If

Help appreciated.

Try

Dim sError As String
sError = Space(255)

instead of

Dim sError As String * 255

You can't use GetLastError with VB. VB does some processing behind the scenes when you call an API function. Basically, one or more additional API functions are called after the one you specified. Since the last error is only available after each API call the value you want is gone.

Fortunately VB stores the return value of the API in the error object. Use Err.LastDLLError instead.