diff --git a/Connectors.Common/Modules/BaseModule.vb b/Connectors.Common/Modules/BaseModule.vb
index 3011118..1bc5532 100644
--- a/Connectors.Common/Modules/BaseModule.vb
+++ b/Connectors.Common/Modules/BaseModule.vb
@@ -29,6 +29,8 @@ Public MustInherit Class BaseModule
     Public Event OnFileProcessed As EventHandler(Of String) Implements ISync.OnFileProcessed
     Public Event OnFileError As EventHandler(Of String) Implements ISync.OnFileError
 
+    Private ReadOnly DirectoryGuid As String = Guid.NewGuid.ToString()
+
     Public Sub New(pLogConfig As LogConfig, pDatabase As MSSQLServer, pConfig As Config)
         MyBase.New(pLogConfig)
 
@@ -91,8 +93,7 @@ Public MustInherit Class BaseModule
         End If
 
         If Config.AddImportSubDirectory = True Then
-            Dim oGuid = Guid.NewGuid.ToString()
-            Dim oSubPath = Path.Combine(oFinalDirectoryPath, oGuid)
+            Dim oSubPath = Path.Combine(oFinalDirectoryPath, DirectoryGuid)
             Try
                 Directory.CreateDirectory(oSubPath)
             Catch ex As Exception