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