Dim Eingabe As String
        Dim FehlerMeldung As System.Windows.Forms.DialogResult


        lblFam.Visible = True
        lblSteuer2.Visible = True
        txtfamstand.Visible = True
        txtstKlasse.Visible = True

        Eingabe = txtSteuerklasse.Text

        Select Case Eingabe

            Case "1"
                txtfamstand.Text = "ledig, geschieden, verwitwet"
                txtstKlasse.Text = "1"
            Case "2"
                txtfamstand.Text = "geschieden mit Kindern"
                txtstKlasse.Text = "2"
            Case "3"
                txtfamstand.Text = "Verheiratet"
                txtstKlasse.Text = "3"
            Case "4"
                txtfamstand.Text = "verheiratet, Ehegatte LstKlasse: 4"
                txtstKlasse.Text = "4"
            Case "5"
                txtfamstand.Text = "verheiratet, Ehegatte LstKlasse: 3"
                txtstKlasse.Text = "5"
            Case "6"
                txtfamstand.Text = "Zusätzliche Lohnsteuerkarte"
                txtstKlasse.Text = "6"
            Case Else
                txtfamstand.Text = "unzulässige Eingabe"
                txtstKlasse.Text = "unzulässige Eingabe"

                FehlerMeldung = "unzulässige Eingabe"
                FehlerMeldung = "unzulässige Eingabe"
                MessageBox.Show(FehlerMeldung, MessageBoxIcon.Warning)

        End Select