Mail quota info button

Users exceeding their mail quota is something that occurs all the time. Going through the database properties box can be difficult and doesn't tell a user what their quota actually is. I created an action button that calls an agent in our corporate mail template on the $Inbox folder call Database Info. Users can click it and their database information is displayed to them including a warning window if they are over their quota. See code below.

Action Button:
@Command([ToolsRunMacro] ; "(database properties)" )

Agent:

Agent Title: (database properties)
Agent Type: Shared, Hidden

Sub Initialize
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim server As String
	Dim Size As Long
	Dim Quota As Double
	
	Set db = session.CurrentDatabase
	server=db.Server
	If server="" Then
		server="Local"
	End If
	size=db.Size/1056000
	quota=db.SizeQuota/1024
	Messagebox "Database Information:" &Chr(10)_
	&Chr(10)_
	& "Database Title: " & db.Title & Chr(10) _
	& "Resides on Server: " & server & Chr(10) _
	& "Full File Path name: " & db.FilePath & Chr(10) _
	&Chr(10)_
	& "Database Size Information:" & Chr(10) _
	&Chr(10)_
	& "Size (Mb): " & size & Chr(10) _
	& "Quota: (Mb): " & quota & Chr(10) _
	& "Percent used: " & db.PercentUsed & Chr(10) _
	&Chr(10)_
	& "Database Design Information:" & Chr(10) _
	&Chr(10)_
	& "Inherits from Template: " & db.DesignTemplateName & Chr(10)_
	& "Database is the Template: " & db.TemplateName & Chr(10)_
	& "Replica ID: " & db.ReplicaID,MB_OK+MB_ICONINFORMATION,"Database Property Synopsis"
	
	If quota <> 0 Then
		If size > quota Then
			Messagebox "You are Currently Over your quota" ,MB_OK+MB_ICONINFORMATION,"What this Agent Does"
		End If
	End If
End Sub