[Help]Login System

Public Class Login
        Dim Accepted = 2
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        On Error GoTo ERRORCODE1
        Dim WebCache As String
        Dim Usernameconfig
        Dim Result
        Usernameconfig = TextBox1.Text.Replace(" ", "%20")
        WebCache = "http://fishy-designs.******.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()
        Form1.Show()
    End Sub
End Class