Option Explicit

Private Declare Function SetVolumeLabel Lib "kernel32" Alias _
          "SetVolumeLabelA" (ByVal lpRootPathName As String, _
          ByVal lpVolumeName As String) As Long

Private Sub cmdOK_Click()
  On Error GoTo errOut

  SetVolumeLabel Left$(drvAuswahl.Drive, 2) & "\", _
        txtNewLabel.Text & Chr$(0)

  drvAuswahl.Refresh
  Exit Sub

errOut:
   MsgBox "Ändern der Laufwerksbezeichnung ist fehlgeschlagen."
End Sub