plz tell me error in my code

[arsanl]

Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
        Dim STRUSER$
        Dim STRPASS$
        STRUSER = "ADMIN"
        STRPASS = "SUPER"
        Dim INTCTR As Integer
        INTCTR = 0
        Dim VALID As Boolean
        Do While Not VALID
            If TextBox1.Text = STRUSER Or TextBox2.Text = STRPASS Then
                MsgBox("ACCEPTED")
                Me.Hide()
                Form2.Show()
                Exit Do
            Else
                VALID = False
                INTCTR += 1
                If INTCTR = 3 Then
                    MsgBox("UNAUTHORIZED USER....QUITING")
                    Me.Close()
                Else
                    MsgBox("INVALID USERNAME OR INVALID PASSWORD")
                    TextBox1.Text = ""
                    TextBox2.Text = ""
                    TextBox1.Focus()
                End If
            End If
        Loop
    End Sub