From c833f486ac8c5f5b71d9e104009c888f5cb4efcc Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Mon, 28 Mar 2022 11:38:40 +0200
Subject: [PATCH] ZUGFeRDTest: update gui

---
 GUIs.Test.ZUGFeRDTest/Form1.vb | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/GUIs.Test.ZUGFeRDTest/Form1.vb b/GUIs.Test.ZUGFeRDTest/Form1.vb
index 7cfdb15e..91cb7341 100644
--- a/GUIs.Test.ZUGFeRDTest/Form1.vb
+++ b/GUIs.Test.ZUGFeRDTest/Form1.vb
@@ -105,10 +105,13 @@ Public Class Form1
         Dim oArgs As New WorkerArgs()
 
         If oResult = DialogResult.OK Then
-            Dim oDoc = _zugferd.ValidateZUGFeRDFileWithGDPicture(OpenFileDialog1.FileName)
-            Dim oZUGFERD = _zugferd.SerializeZUGFeRDDocument(oDoc)
-            Console.WriteLine()
-
+            Try
+                Dim oDoc = _zugferd.ValidateZUGFeRDFileWithGDPicture(OpenFileDialog1.FileName)
+                Dim oZUGFERD = _zugferd.SerializeZUGFeRDDocument(oDoc)
+                Console.WriteLine()
+            Catch ex As Exception
+                MsgBox(ex.Message)
+            End Try
         End If
     End Sub