Visual Basic.NET - manejar CDROM

hola
tengo este codigo en VB6 y queria pasarlo a .NET,pero no me sale el resultado correcto.

'declaraciones
Public Const DRIVE_REMOVABLE = 2

Public Const DRIVE_FIXED = 3

Public Const DRIVE_REMOTE = 4

'Estos tipos no están en el fichero de las declaraciones del API de 16 bits

Public Const DRIVE_CDROM = 5

Public Const DRIVE_RAMDISK = 6

Declare Function GetDriveType Lib "Kernel" (ByVal nDrive As Integer) As Integer

Declare Function GetDriveType Lib "Kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

'codigo
Dim lDrive As Long

Dim szRoot As String

szRoot = "D:\" 'Poner aquí la unidad del CD-ROM o la que queramos comprobar

lDrive = GetDriveType(szRoot)

MsgBox(CStr(lDrive))

If lDrive = DRIVE_CDROM Then

'Es un CD-ROM/Compact-Disc

End If

me sale como reultado -42466.. ,tb tengo problemas en otras declaraciones parecidas a estas,como Private Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long