Источник: Accessboom
Можно, конечно, использовать функцию API GetVolumeInformation для получения целой тучи информации.
Но если Вас интересует лишь метка диска, намного проще использовать описанный в справке, но частенько забываемый аргумент функции Dir.
Print Dir("C:",vbVolume)
Ссылки по теме