diff --git a/initATLASAufschubkonten/frmStartOptions.Designer.vb b/initATLASAufschubkonten/frmStartOptions.Designer.vb
index 8de3db4..ff61cf9 100644
--- a/initATLASAufschubkonten/frmStartOptions.Designer.vb
+++ b/initATLASAufschubkonten/frmStartOptions.Designer.vb
@@ -842,8 +842,8 @@ Partial Class frmStartOptions
         '
         'TabPage1
         '
-        Me.TabPage1.Controls.Add(Me.Label41)
-        Me.TabPage1.Controls.Add(Me.MyTextBox4)
+        'Me.TabPage1.Controls.Add(Me.Label41)
+        'Me.TabPage1.Controls.Add(Me.MyTextBox4)
         Me.TabPage1.Controls.Add(Me.LinkLabel99)
         Me.TabPage1.Controls.Add(Me.PictureBox99)
         Me.TabPage1.Controls.Add(Me.Button99)
diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb
index 838b780..3085714 100644
--- a/initATLASAufschubkonten/frmStartOptions.vb
+++ b/initATLASAufschubkonten/frmStartOptions.vb
@@ -3955,7 +3955,7 @@ Public Class frmStartOptions
 
     Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click
         Dim abDatum = Nothing
-        If MyTextBox4._value <> "" Then abDatum = CDate(MyTextBox4._value)
+        'If MyTextBox4._value <> "" Then abDatum = CDate(MyTextBox4._value)
         doAASVermerke_Schwelle(abDatum)
 
     End Sub