Fix Init

EnvelopeGenerator.Form/frmSplashScreen.vb

@@ -106,16 +106,15 @@ Public Class frmSplashScreen
     End Sub
 
     Private Sub Worker_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles Worker.RunWorkerCompleted
+        Try
             If e.Error IsNot Nothing Then
-            Logger.Error(e.Error)
-            MsgBox("Fehler beim Initialisieren: " & e.Error.Message & vbNewLine & vbNewLine & e.Error.StackTrace, MsgBoxStyle.Critical, Text)
-            Application.Exit()
+                Throw e.Error
             End If
 
             Dim oState As State = DirectCast(e.Result, State)
 
             Dim oCultureInfo As CultureInfo
-        oCultureInfo = New CultureInfo(oState.user.Language)
+            oCultureInfo = New CultureInfo(oState.User.Language)
             Thread.CurrentThread.CurrentCulture = oCultureInfo
             Thread.CurrentThread.CurrentUICulture = oCultureInfo
             CultureInfo.DefaultThreadCurrentCulture = oCultureInfo
@@ -137,6 +136,11 @@ Public Class frmSplashScreen
 
             ' Close this form after frmMain is closed
             Close()
+        Catch ex As Exception
+            Logger.Error(ex)
+            MsgBox("Fehler beim Initialisieren: " & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, MsgBoxStyle.Critical, Text)
+            Application.Exit()
+        End Try
     End Sub