Why dusn't this code Work?

[Aaron Rogers118]

Code:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If CheckBox1.Checked = True Then
            MessageBox.Show("TEST", "TEST", MessageBoxButtons.OK)
        Else
            MessageBox.Show("TEST", "TEST", MessageBoxButtons.OKCancel)
            If MessageBoxButtons.Cancel = Click Then
                MessageBox.Show("Are you shor you want to quit?", "TEST", MessageBoxButtons.YesNo, MesssageBoxIcon.Question)
                If MessageBoxButtons.Yes = Click Then
                    End
                End If
            End If
        End If

    End Sub
End Class