layering Suppression

[Anonymous]

Hello, I have this code stated below. I have only one issue with it, and that is if the nozzle dia is less than 10in it will not work. So basically it will only work when having double digits. Any ideas or have a better code that will do the same thing?

Format:HTML Format Version:1.0 StartHTML: 165 EndHTML: 24013 StartFragment: 314 EndFragment: 23981 StartSelection: 314 EndSelection: 314SyntaxEditor Code Snippet

If iProperties.Value("Custom", "Nozzle Dia")> "18in" Then
ThisDrawing.Document.StylesManager.Layers("GUSSETS").Visible = True
ThisDrawing.Document.StylesManager.Layers("GUSSETS DIMS").Visible = True

Else
ThisDrawing.Document.StylesManager.Layers("GUSSETS").Visible = False
ThisDrawing.Document.StylesManager.Layers("SHOP GUSSETS").Visible = False
ThisDrawing.Document.StylesManager.Layers("GUSSETS DIMS").Visible = False

End If

If iProperties.Value("Custom", "Nozzle Dia")> "25in" Then
ThisDrawing.Document.StylesManager.Layers("MID GUSSETS").Visible = True
ThisDrawing.Document.StylesManager.Layers("MID GUSSETS DIMS").Visible = True
Else
ThisDrawing.Document.StylesManager.Layers("MID GUSSETS").Visible = False
ThisDrawing.Document.StylesManager.Layers("MID GUSSETS DIMS").Visible = False
End If

ActiveSheet = ThisDrawing.Sheet("Sheet:2")

If iProperties.Value("Custom", "Nozzle Dia")> "18in" Then
ThisDrawing.Document.StylesManager.Layers("GUSSETS").Visible = True
ThisDrawing.Document.StylesManager.Layers("GUSSETS DIMS").Visible = True
ThisDrawing.Document.StylesManager.Layers("MID GUSSETS DIMS").Visible = False

Else
ThisDrawing.Document.StylesManager.Layers("GUSSETS").Visible = False
ThisDrawing.Document.StylesManager.Layers("SHOP GUSSETS").Visible = False
ThisDrawing.Document.StylesManager.Layers("GUSSETS DIMS").Visible = False
ThisDrawing.Document.StylesManager.Layers("MID GUSSETS DIMS").Visible = False

End If

If iProperties.Value("Custom", "Nozzle Dia")> "25in" Then
ThisDrawing.Document.StylesManager.Layers("MID GUSSETS").Visible = True
ThisDrawing.Document.StylesManager.Layers("MID GUSSETS DIMS").Visible = True
Else
ThisDrawing.Document.StylesManager.Layers("MID GUSSETS").Visible = False
ThisDrawing.Document.StylesManager.Layers("MID GUSSETS DIMS").Visible = False
End If

[Anonymous]

So I have figured out that the code works if I put in 09in but not 9. Is there w way to change the read out of the code?