Private Declare Function GetVolumeInformation Lib "kernel32" _
    Alias "GetVolumeInformationA" _
    (ByVal lpRootPathName As String, _
     ByVal lpVolumeNameBuffer As String, _
     ByVal nVolumeNameSize As Long, _
     lpVolumeSerialNumber As Long, _
     lpMaximumComponentLength As Long, _
     lpFileSystemFlags As Long, _
     ByVal lpFileSystemNameBuffer As String, _
     ByVal nFileSystemNameSize As Long) As Long
 
Function Label_lesen(Laufwerk As String) As String
On Error GoTo Err_Label_lesen
 
    Dim Serial As Long, VName As String, FSName As String
 
    VName = String$(255, Chr$(0))
    FSName = String$(255, Chr$(0))
 
    GetVolumeInformation Laufwerk, VName, 255, Serial, 0, 0, FSName, 255
 
    Label_lesen = Left$(VName, InStr(1, VName, Chr$(0)) - 1)
 
Exit_Label_lesen:
    Exit Function
 
Err_Label_lesen:
    MsgBox Err.Description
    Resume Exit_Label_lesen
 
End Function

MsgBox Label_lesen("A:")