diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/TELOTEC/cTelotecAPI.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/TELOTEC/cTelotecAPI.vb
index 93aa0f02..73a5145e 100644
--- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/TELOTEC/cTelotecAPI.vb
+++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/TELOTEC/cTelotecAPI.vb
@@ -19,11 +19,11 @@ Public Class cTelotecAPI
 
 
     Sub Main()
-        Console.WriteLine("ACCS Customs API Demo")
-        Dim taRequest As StoreTADeclarationsRequest = CreateSampleTARequest()
-        PostStoreTADeclarations(taRequest)
-        Dim messages As List(Of TAMessage) = GetTAMessages()
-        Console.WriteLine("Nachrichten: " & messages.Count)
+        'Console.WriteLine("ACCS Customs API Demo")
+        'Dim taRequest As StoreTADeclarationsRequest = CreateSampleTARequest()
+        'PostStoreTADeclarations(taRequest)
+        'Dim messages As List(Of TAMessage) = GetTAMessages()
+        'Console.WriteLine("Nachrichten: " & messages.Count)
 
 
 
@@ -140,11 +140,11 @@ Public Class cTelotecAPI
         Console.WriteLine("✅ StoreEXDeclarations Antwort: " & resp.BodyStr)
     End Sub
 
-    Function GetTAMessages() As List(Of TAMessage)
+    Function GetTAMessages(Company) As List(Of TAMessage)
         Dim messages As New List(Of TAMessage)()
 
         Dim http As New Http()
-        http.SetRequestHeader("X-API-KEY", getAPIKEY("ATILLA"))
+        http.SetRequestHeader("X-API-KEY", getAPIKEY(Company))
         '      http.SetRequestHeader("X-API-KEY", http.AuthToken = getAPIKEY("ATILLA"))
         http.Accept = "application/json"