•Select
Case firstName
• Case "THOMAS"
• txtReply.Text = "Correct."
• Case "WOODROW"
• txtReply.Text = "Sorry, his
name" _
• & " was Thomas Woodrow Wilson."
• Case "PRESIDENT"
• txtReply.Text = "Are you for
real?"
• Case Else
• txtReply.Text = "Nice try."
•End Select