Public Class Form1

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.CheckState = CheckState.Checked Then
            Message = Message & CheckBox1.Text & vbNewLine
        ElseIf CheckBox1.CheckState = CheckState.Unchecked Then

        End If
        MsgBox("You have chosen" & vbNewLine & Message)
    End Sub