nah kla, die einfachste möglickeit wäre einfach noch eine word variable zu erzeugen und anstatt dem case 1: Print "BLA" einfach nur:

DIM Wochentag as Word
.
.
.den ganzen anderen kram
.
case 1 : Wochentag = "Montag"

und das bindest du einfach dann in deine Printanweisung ein:
Print Stunde ; ":" ; Minute ; ":" ; Sekunde;":";Wochentag