Es gibt mehrere Möglichkeiten, hier ist eine davon:

ERFORDERLICHE OBJEKTE

   1 Commandbutton (Command1)
   1 Textbox (Text1)
 FORM-CODE

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

   Private Function SetLabel(Laufwerk, Bezeichnung)
      'keine Bezeichnung
      If Bezeichnung = "" Then Bezeichnung = Chr$(0)
      'darf nicht länger als 11 Zeichen sein
      If Len(Bezeichnung) > 11 Then  Bezeichnung = Mid(Bezeichnung, 1, 11)
      SetLabel = SetVolumeLabel(Laufwerk, Bezeichnung)
   End Function

   Private Sub Command1_Click()
      x = SetLabel("C:\", Text1.Text)
      If x<>1 Then MsgBox "Fehler", VbCritical
   End Sub

   Private Sub Form_Load()
      Command1.Caption = "Schreiben !"
      DriveLabel = Dir$("C:\", 8)
      Text1.Text = DriveLabel
   End Sub