' ShowDebugBox(Title : String)
' ----------------------------------------------------------------------------
' Zeigt die DEBUG-MsgBox an
' 
' Returns: -
' ----------------------------------------------------------------------------
' Copyright (c) 2021 by Digital Data GmbH
'
' Digital Data GmbH • Ludwig-Rinn-Strasse 16 • D-35452 Heuchelheim
' Tel.: 0641/202360 • E-Mail: info-flow(at)digitaldata.works
' ----------------------------------------------------------------------------
' Creation Date / Author:   10.08.2020 / XX
' Version Date / Editor:    10.08.2020 / XX
' Version Number:           1.0.0.0

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