Public Sub weihnachten_rechnung(ByVal zahl As Integer)
 
 
        'Durchsuchen der Textdatei nach dem Betrag anhand des eingegeben Kontos
 
        Using sr As System.IO.StreamReader = New System.IO.StreamReader( _
          Startpfad & "\Daten\import.txt")
            Dim curLine As String
            Dim weihnachtsgeld As Integer
 
            While sr.Peek() > -1
 
                curLine = sr.ReadLine()
 
                If curLine.Substring(0, konto_laenge - 2) = txt_konto1.Text Then
 
                    txt_betrag1.Text = Strings.Mid(curLine, konto_laenge - _
                      1).Replace(" ", String.Empty)
 
                    'Weihnachtsgeld (13. Monatslohn) ausrechnen und anzeigen
 
                    If txt_faktor1.Text <> "" Then
 
                        If txt_betrag1.Text <> "" Then
 
                            If box_urlaubsgeld.Checked = False And _
                              box_weihnachtsgeld.Checked = False Then
 
                                weihnachtsgeld = (txt_betrag1.Text * (12 + _
                                  txt_faktor1.Text + txt_faktor_w1.Text) / 12) _
                                  - txt_betrag1.Text
                                txt_weihnacht1.Text = weihnachtsgeld
 
                                'weihnachtsgeld = (txt_betrag1.Text / 
                                ' monat_import) * txt_faktor1.Text / 12 * 
                                ' monat_import
                                'txt_weihnacht1.Text = weihnachtsgeld
 
                            End If
 
                            If box_urlaubsgeld.Checked = True And _
                              box_weihnachtsgeld.Checked = False Then
 
                                weihnachtsgeld = (txt_betrag1.Text / ( _
                                  monat_import + txt_faktor1.Text) * (12 + _
                                  txt_faktor1.Text + txt_faktor_w1.Text) * _
                                  monat_import / 12) - txt_betrag1.Text
                                txt_weihnacht1.Text = weihnachtsgeld
 
 
                            End If
 
                            If box_urlaubsgeld.Checked = True And _
                              box_weihnachtsgeld.Checked = True Or _
                              box_urlaubsgeld.Checked = False And _
                              box_weihnachtsgeld.Checked = True Then
 
                                weihnachtsgeld = (txt_betrag1.Text / ( _
                                  monat_import + txt_faktor1.Text + _
                                  txt_faktor_w1.Text) * (12 + txt_faktor1.Text _
                                  + txt_faktor_w1.Text) * monat_import / 12) - _
                                  txt_betrag1.Text
                                txt_weihnacht1.Text = weihnachtsgeld
 
                            End If
 
 
                        Else
 
                            txt_weihnacht1.Text = ""
 
                        End If
                    End If
 
 
                    Exit While
 
                Else
                    txt_betrag1.Text = ""
                    txt_weihnacht1.Text = ""
                End If
 
            End While
            sr.Close()
        End Using
    End Sub