' AddDebugLine(Message: String)
' ----------------------------------------------------------------------------
' Fügt der DEBUG_MESSAGE eine neue Zeile hinzu
' 
' 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:   20.08.2020 / XX
' Version Date / Editor:    20.08.2020 / XX
' Version Number:           1.0.0.0

Sub AddDebugLine(Message)
	DEBUG_MESSAGE = DEBUG_MESSAGE & Message & vbNewLine
End Sub