Mine

Dim counter As Integer = 0
        Dim Message As String
        If CheckBox1.CheckState = CheckState.Checked Then

            Message = CheckBox1.Text & vbNewLine
            counter = +1
            MessageBox.Show("You have chosen" & counter & "soaps")



        ElseIf CheckBox1.CheckState = CheckState.Unchecked Then
            Message = CheckBox1.Text & vbNewLine

        End If

        If CheckBox2.CheckState = CheckState.Checked Then

            Message = CheckBox2.Text & vbNewLine
            counter = +1
            MessageBox.Show("You have chosen" & counter & "soaps")




        ElseIf CheckBox2.CheckState = CheckState.Unchecked Then

            Message = CheckBox2.Text & vbNewLine

            If CheckBox3.CheckState = CheckState.Checked Then

                Message = CheckBox3.Text & vbNewLine
                counter = +1
                MessageBox.Show("You have chosen" & counter & "soaps")




            ElseIf CheckBox3.CheckState = CheckState.Unchecked Then

                Message = CheckBox3.Text & vbNewLine

                If CheckBox4.CheckState = CheckState.Checked Then

                    Message = CheckBox4.Text & vbNewLine
                    counter = +1
                    MessageBox.Show("You have chosen" & counter & "soaps")




                ElseIf CheckBox4.CheckState = CheckState.Unchecked Then
                    Message = CheckBox4.Text & vbNewLine

                    If CheckBox5.CheckState = CheckState.Checked Then

                        Message = CheckBox5.Text & vbNewLine
                        counter = +1
                        MessageBox.Show("You have chosen" & counter & "soaps")




                    ElseIf CheckBox5.CheckState = CheckState.Unchecked Then

                        Message = CheckBox5.Text & vbNewLine

                    End If



                End If
            End If

        End If
    End Sub
End Class