Some fun Visual Basic I wrote at 14