diff --git a/SDL/mdm/Besuchsberichte/frmBesuchsberichte.vb b/SDL/mdm/Besuchsberichte/frmBesuchsberichte.vb
index 494d8873..9745b5cb 100644
--- a/SDL/mdm/Besuchsberichte/frmBesuchsberichte.vb
+++ b/SDL/mdm/Besuchsberichte/frmBesuchsberichte.vb
@@ -122,13 +122,9 @@
         BB.bb_Kontaktart = cboKontaktart._value
         If If(BB.bb_KundenNr, -1) <= 0 Then
             If txtFirma.Text <> "" Then
-                If txtFirma.Text.Length > 35 Then
-                    BB.bb_Kunde = txtFirma.Text.Substring(0, 35)
-                Else
-                    BB.bb_Kunde = txtFirma.Text
-                End If
+                BB.bb_Kunde = txtFirma.Text
             Else
-                BB.bb_Kunde = "-" 'diese Fall kann nicht eintreten, wird im Formular abgefangen.
+                BB.bb_Kunde = "-" 'diese Fall kann nicht eintreten, wird im Formular abgefangen, aber sicherheitshalber :)
             End If
         End If
         BB.bb_Geschaeftsfuehrer = txtGF.Text