Partial Class Sushi Inherits System.Web.UI.Page Protected Sub MyButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyButton.Click Dim Input As String = SushiList.SelectedItem.Text Dim Message As String = Input & " tastes good!" If Input = "uni" Then Message = "Yuck! How do you eat that nasty, yellow stuff!?" End If Output.Text = Message End Sub End Class