' Replace the shade according to parameter value Select ShadeType Case "Shade1" Component.Replace("Shade", "Shade1.ipt", False) Case "Shade2" Component.Replace("Shade", "Shade2.ipt", False) Case "Shade3" Component.Replace("Shade", "Shade3.ipt", False) End Select ' Replace the body according to parameter value Select BodyType Case "Body1" Component.Replace("Body", "Body1.ipt", False) Case "Body2" Component.Replace("Body", "Body2.ipt", False) Case "Body3" Component.Replace("Body", "Body3.ipt", False) End Select