diff --git a/Lisp/VarioFoerderer.lsp b/Lisp/VarioFoerderer.lsp
index cf2c87c..204c8e5 100644
--- a/Lisp/VarioFoerderer.lsp
+++ b/Lisp/VarioFoerderer.lsp
@@ -511,8 +511,8 @@
   (if (> L_GF1 0.1)
     (progn
       (princ (strcat "\n\n2/11: Staustrecke (3 Grad, Laenge=" (rtos L_GF1 2 2) " mm)"))
-      (setq blockname (strcat modul-pfad "Staustrecke_SP_1000_mm.dwg"))
-      (if (findfile blockname)
+      (setq blockname "Staustrecke_SP_1000_mm")
+      (if (tblsearch "BLOCK" blockname)
         (progn
           (setq block (vla-InsertBlock modelspace
                         (vlax-3D-point aktueller-punkt)
@@ -530,7 +530,7 @@
                                       (cadr aktueller-punkt)
                                       (+ (caddr aktueller-punkt) (* (- (sin rad)) L_GF1))))
         )
-        (princ (strcat "\n  FEHLER: " blockname " nicht gefunden!"))
+        (princ (strcat "\n  FEHLER: Block '" blockname "' nicht in Zeichnung gefunden!"))
       )
     )
     (princ "\n2/11: (uebersprungen)")
@@ -565,8 +565,8 @@
           (setq rot-winkel best-winkel)
         )
       )
-      (setq blockname (strcat modul-pfad "Staustrecke_SP_1000_mm.dwg"))
-      (if (findfile blockname)
+      (setq blockname "Staustrecke_SP_1000_mm")
+      (if (tblsearch "BLOCK" blockname)
         (progn
           (setq block (vla-InsertBlock modelspace
                         (vlax-3D-point aktueller-punkt)
@@ -583,7 +583,7 @@
                                       (cadr aktueller-punkt)
                                       (+ (caddr aktueller-punkt) (* (- (sin rad)) L_VF))))
         )
-        (princ (strcat "\n  FEHLER: " blockname " nicht gefunden!"))
+        (princ (strcat "\n  FEHLER: Block '" blockname "' nicht in Zeichnung gefunden!"))
       )
     )
     (princ "\n6/11: (uebersprungen)")
@@ -605,8 +605,8 @@
   (if (> L_GF2 0.1)
     (progn
       (princ (strcat "\n\n9/11: Staustrecke (3 Grad, Laenge=" (rtos L_GF2 2 2) " mm)"))
-      (setq blockname (strcat modul-pfad "Staustrecke_SP_1000_mm.dwg"))
-      (if (findfile blockname)
+      (setq blockname "Staustrecke_SP_1000_mm")
+      (if (tblsearch "BLOCK" blockname)
         (progn
           (setq block (vla-InsertBlock modelspace
                         (vlax-3D-point aktueller-punkt)
@@ -623,7 +623,7 @@
                                       (cadr aktueller-punkt)
                                       (+ (caddr aktueller-punkt) (* (- (sin rad)) L_GF2))))
         )
-        (princ (strcat "\n  FEHLER: " blockname " nicht gefunden!"))
+        (princ (strcat "\n  FEHLER: Block '" blockname "' nicht in Zeichnung gefunden!"))
       )
     )
     (princ "\n9/11: (uebersprungen)")