Newbie no VB

Não é por que é nosso primeiro Funny Code que eu vou pegar leve. Olha o que esse programador super-ultra-mega junior aprontou no Visual Basic:

    if (day=1) or (day=8) or (day=15) or (day=22) or (day=29) then
        weekday = "Monday"
    elseif (day=2) or (day=9) or (day=16) or (day=23) or (day=30) then
        weekday = "Tuesday"
    ...