Visual Basic

AppDomain.CurrentDomain.SetPrincipalPolicy(PrincipalPolicy.WindowsPrincipal)<br />
        Dim t As Threading.Thread = Threading.Thread.CurrentThread<br />
        Dim p As WindowsPrincipal = Threading.Thread.CurrentPrincipal<br />
        Dim wi As WindowsIdentity = p.Identity<br />
        Dim is As String = wi.name<br />
        Me.label1.Text = fullyQUserName<br />

Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click<br />
        Dim User, Pass As String<br />
        Dim validationFile As String<br />
        User = txtbx1.Text<br />
        Pass = txtbx2.Text<br />
        validationFile = My.Computer.FileSystem.ReadAllText("C:\read.txt")<br />
        If txtbx2.Text.Length < 5 And Not txtbx2.Text Like "#####" Then<br />
            MsgBox("Please enter a password with more then 5 charactors")<br />
            txtbx2.Text = ("")<br />
        ElseIf Pass <> validationFile Then<br />
            'It's above here that I have the problem, <> means equal too if I'm            'right in VB.Net but I'd like it to be something along the lines of IsIn or ==. 'I just want it to check to make sure the words are in the file you see.<br />
            MsgBox("Access Granted")<br />
            Me.Close() 'Just an example of what it should do.<br />
        End If<br />
    End Sub<br />
End Class