Public Class Form1
 
 
    Dim Kapsi As Char
 
 
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        End
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
 
 
        If TextBox1.Text.ToLower = "kapsi" Then
            MessageBox.Show("Access Granted!", "Log In Successful")
        Else
            MessageBox.Show("Access denied!", "Log In Failed")
            End
        End If
 
 
 
 
    End Sub