Calcular la etiqueta de un disco duro

Para calcular la etiqueta de un disco duro en VBA

  Private Declare Function GetVolumeInformation& Lib "kernel32" 
  Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, 
  ByVal pVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, 
  lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, 
  lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, 
  ByVal nFileSystemNameSize As Long)

  Private Sub Form_Load()
    Dim cad1 As String * 256
    Dim cad2 As String * 256
    Dim numSerie As Long
    Dim longitud As Long
    Dim flag As Long
    unidad = "D:\"
    Call GetVolumeInformation(unidad, cad1, 256, numSerie, longitud, flag, cad2, 256)
    MsgBox "Label de la unidad " & unidad & " = " & cad1
  End Sub