diff --git a/DDZUGFeRDService/ThreadRunner.vb b/DDZUGFeRDService/ThreadRunner.vb
index ba8c6a17..8650ce47 100644
--- a/DDZUGFeRDService/ThreadRunner.vb
+++ b/DDZUGFeRDService/ThreadRunner.vb
@@ -27,11 +27,10 @@ Public Class ThreadRunner
 
     Private Const TIMER_INTERVAL_MS = 10_000
 
-    Public Sub New(LogConfig As LogConfig, GDPictureKey As String, Firebird As Firebird, Optional MSSQL As MSSQLServer = Nothing)
+    Public Sub New(LogConfig As LogConfig, Firebird As Firebird, Optional MSSQL As MSSQLServer = Nothing)
         _logConfig = LogConfig
         _logger = _logConfig.GetLogger()
         _firebird = Firebird
-        _zugferd = New ZUGFeRDInterface(_logConfig)
         _mssql = MSSQL
 
         Dim args As New WorkerArgs()
diff --git a/Modules.Filesystem/File.vb b/Modules.Filesystem/File.vb
index b6b30ae8..941e91ea 100644
--- a/Modules.Filesystem/File.vb
+++ b/Modules.Filesystem/File.vb
@@ -169,7 +169,6 @@ Public Class File
 
     <DebuggerStepThrough>
     Public Sub MoveTo(FilePath As String, NewFileName As String, Directory As String)
-        Dim oFileInfo As New FileInfo(FilePath)
         IO.File.Move(FilePath, Path.Combine(Directory, NewFileName))
     End Sub