Private Sub Command1_Click()
Dim lw As String
Dim fs, d
 
lw = Text1.Text
 
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName(lw))
MsgBox "Freier Speicherplatz auf " & lw & FormatNumber(d.FreeSpace / 1024 / _
  1024, 0) & " MB"
End Sub