Jump to content
Mr. Green Gaming

Happy Easter


Recommended Posts

Happy easter, and here's some code for me and Lindt Bunnies:

Private Sub Form_Load() 
Dim LindtBunny As String
Do Until LindtBunny = "Y"
LindtBunny = InputBox("Do you have a Lindt Bunny?!?")
Select Case LindtBunny
Case LindtBunny = "Y"
MsgBox ("OM NOM NOM. Bunny is deelecious!")
Case LindtBunny = "N"
MsgBox ("You. Sir. You fail.")
Case LindtBunny = ""
MsgBox ("don't try and get out of the question")
Case Else
MsgBox ("Broken program is broken")
End Select
End Sub

Although at the moment it seems to only want to choose the Case Else option >:

Edited by ERROR 401
Link to comment

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • Recently Browsing   0 members

    • No registered users viewing this page.
  • Create New...