Partial Class CheckboxExample Inherits System.Web.UI.Page Protected Sub MyButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyButton.Click Dim Message As String = "" 'create message for each checked checkbox If CheckBoxMaguro.Checked = True Then Message = "I like tuna too! " End If If CheckBoxTamago.Checked = True Then Message = Message & "I like egg too! " End If If CheckBoxUnagi.Checked = True Then Message = Message & "I like eel too! " End If 'if user does not check anything: If CheckBoxMaguro.Checked = False And CheckBoxTamago.Checked = False And CheckBoxUnagi.Checked = False Then Message = "You don't like sushi!?" End If Output.Text = Message End Sub End Class