diff --git a/Main.vb b/Main.vb
index c9538a3..27b6176 100644
--- a/Main.vb
+++ b/Main.vb
@@ -311,8 +311,12 @@ Public Class TSUserReporter
             Text = "PRINTER:" & Standarddrucker.Druckername & vbCrLf
             Text &= "BON:" & Bondrucker.Druckername
         End If
+        Try
+            System.IO.File.WriteAllText(PrintINI, Text)
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
 
-        My.Computer.FileSystem.WriteAllText(PrintINI, Text, False)
 
     End Sub