;! New Lights
        If IsLight = 1
            splitter1 = Instr(Name$, "LIGHT_") + 6
            Splitter2 = Instr(Name$, "_", splitter1) + 1
            Splitter3 = Instr(Name$, "_", Splitter2) + 1
            Splitter4 = Instr(Name$, "_", Splitter3) + 1
            Splitter5 = Instr(Name$, "_", Splitter4) + 1
            Splitter6 = Instr(Name$, "_", Splitter5) + 1
            Splitter7 = Instr(Name$, ".", Splitter6) + 1


            LightType = Mid$(Name$, Splitter2, (splitter2 - splitter3) - 1)
            LightRng = Mid$(Name$, Splitter3, (splitter3 - splitter4) - 1)
            LightR = Mid$(Name$, Splitter4, (splitter4 - splitter5) - 1)
            LightG = Mid$(Name$, Splitter5, (splitter5 - splitter6) - 1)
            LightB = Mid$(Name$, Splitter6, (splitter6 - splitter7) - 1)