Update calendar.bas

GOTO 先の間違いを修正。