Laufwerk auf genügend Speicherplatz prüfen

Sub prüfen()
Dim fs As Object
Dim drvPath
Dim d, s
Dim testdrive As String
Dim Lw As String
Lw = InputBox("LW")
testdrive = Lw
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.DriveExists(testdrive) Then
drvPath = Lw
Set d = fs.GetDrive(fs.GetDriveName(drvPath))
s = "Laufwerk " & UCase(drvPath) & " hat noch " & FormatNumber(d.FreeSpace / 1024, 0) & "   _
_
Kbytes frei"
MsgBox s, vbOKOnly + vbInformation, "Speicherplatz"
Else
MsgBox (testdrive & "existiert nicht!")
End If
End Sub

Das Makro prüft, ob ein Laufwerk vorhanden ist und wenn ja, dann schaut es, wie viel Speicherplatz noch vorhanden ist.
Funktioniert einwandfrei.
Ich möchte allerdings noch eine Prüfung einbauen, wo angezeigt wird, ob der Speicherplatz groß genug für das Kopieren von Dateien ist (Ordnergröße 500 MB). das bekomme ich aber nicht hin.
FormatNumber(d.Freespace / 1024, 0) zeigt mir ja die Größe an, aber wie bekomme ich den Vergleich hin?
mit Danke für eure Hilfe.
Gruß
Christian