Code debug...

The attached code shows a simple form with one text box and one button to enter a name and to show a welcome message when the button is clicked.

It works okay but sometimes errors at the End command at line marked by '*********

The code was created using vs2008 and I am running it in vs2010.

Question1: Is this command (End)no longer valid in vs2010?

Error:  Win32Exception was unhandled;  Error creating window handle

Thank you.

code:
Public Class frmWelcomeStudent

    Private Sub cmdWelcome_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdWelcome.Click

        Dim intResponse As Integer
        Dim strMsg As String
        Dim strTitle As String
        Dim strName As String

        'store student name after triming the blank spaces either side
        strName = Trim(txtUserName.Text)

        'check to see if user name is left blank
        If Len(strName) = 0 Then

            MessageBox.Show("Please enter a name.", "User Name Is Blank...")
            txtUserName.Focus()
            txtUserName.SelectAll()

        Else

            'check to see at least the first char is "A" thru "z"
            If strName.Substring(0, 1) >= "A" And strName.Substring(0, 1) <= "z" Then

                strMsg = "Welcome to CS 19 '" & strName & "'." & vbNewLine & vbNewLine & _
                         "Do you want to exit?"

                strTitle = "Message To Student..."

                intResponse = MessageBox.Show(strMsg, strTitle, MessageBoxButtons.YesNo, _
                              MessageBoxIcon.Question)

                If intResponse = vbYes Then
                    End  '***************************
                Else

                    txtUserName.Clear()
                    txtUserName.Focus()

                End If
            Else

                MessageBox.Show("Please enter a name starting with a letter.", "User Name '" & _
                                 strName & "' Not Valid...")
                txtUserName.Focus()
                txtUserName.SelectAll()

            End If

        End If

    End Sub

End Class