diff --git a/Wardrobe/Gratings Data/User_Input.vb b/Wardrobe/Gratings Data/User_Input.vb
index 7addc91..84baa89 100644
--- a/Wardrobe/Gratings Data/User_Input.vb	
+++ b/Wardrobe/Gratings Data/User_Input.vb	
@@ -470,15 +470,15 @@
         gratingTable.Rows(0)("CROSSBAR_SPACING") = CInt(cSpacing)
 
         If Individual.ComboBox_Type.Text = "Pressure Welded" Then
-            gratingTable.Rows(0)("TYPE") = "pressure_welded"  ' Här behövs namn på HLCt modellen
+            gratingTable.Rows(0)("TYPE") = "pressure_welded"
             gratingTable.Rows(0)("CROSSBAR_DIAMETER") = CBDiameter
             gratingTable.Rows(0)("CROSSBAR_THICKNESS") = 0
             gratingTable.Rows(0)("CROSSBAR_HEIGHT") = 0
         Else
-            gratingTable.Rows(0)("TYPE") = "type_a"  ' Här behövs namn på HLCt modellen
+            gratingTable.Rows(0)("TYPE") = "type_a"
             gratingTable.Rows(0)("CROSSBAR_DIAMETER") = 0
-            gratingTable.Rows(0)("CROSSBAR_THICKNESS") = CBThickness
-            gratingTable.Rows(0)("CROSSBAR_HEIGHT") = CBHeight
+            gratingTable.Rows(0)("CROSSBAR_THICKNESS") = 2      'CBThickness    FIXA
+            gratingTable.Rows(0)("CROSSBAR_HEIGHT") = 20        'CBHeight       FIXA
         End If
 
         Return gratingTable