ich würde eine Stringvariablen

dim abc_string as string*6

dimensionieren, welche die entsprechenden Wörter fassen können und den Inhalt der Variablen mittels If-Then oder select Case-Bedingungen belegen

if a<50 then abc_string="dunkel"
if a>50 and a<200 then abc_string="mittel" ....

und danach mit

Print "LDR1: ";a_string ausgeben


Gruß BoGe-Ro