Puedes añadir una referencia COM a Microsoft Scripting Runtime y usar el código
Dim fso As New FileSystemObject
Dim selected_drive As Drive = fso.GetDrive("C:\")
If selected_drive.IsReady Then
MsgBox(selected_drive.SerialNumber.ToString())
End If
Saludos, Javier J