Create Fill listboxVariable routine

(Thomas)