[TUT][C&P] Making a Login System the Easiest Way

Textbox1.Text = "MYAWESOMEPASS" : THEN : Msgbox("Password Accepted")

Public Class Form1
    Dim Accepted = 2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        On Error GoTo ERRORCODE1
Dim WebCache As String
        Dim Usernameconfig
        Dim Result
        Usernameconfig = TextBox1.Text.Replace(" ", "%20")
        WebCache = "http://example.com/users/" + Usernameconfig + ".txt"
        Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(WebCache)
        Dim response As System.Net.HttpWebResponse = request.GetResponse()
        Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream(), System.Text.Encoding.GetEncoding("windows-1252"))
        Result = sr.ReadToEnd()
        If TextBox2.Text = Result Then
            Call AcceptedSub()
            Accepted = 1
        End If
ERRORCODE1: If Accepted = 1 Then : Else : MsgBox("Invalid Username or Password") : End If
Accepted = 2
    End Sub
    Private Sub AcceptedSub()
        'MsgBox("Accepted")
' Place the code here what ever you want it to do when it Accepts you.
    End Sub
End Class

http://example.com/users/

Private Sub AcceptedSub()