Sub Main s$ = “c” i# = DiskFree(s$) MsgBox “Free disk space on drive '” & _ s$ & “’ is: “ & i#End Sub