Sub ShowDebugBox(Title)
	MsgBox DEBUG_MESSAGE, vbOkonly, DEBUG_TITLE & " - " & Title
	DEBUG_MESSAGE = ""
End Sub