[CODES HERE!] Help me do this please~ (ONLINE Login system)

[leon100243]

Thanks a lot!
...
Oh!Finished!
Here you are:

   Private Sub FindUser(ByVal url As String)
        WebClient2.DownloadFileAsync(New Uri(url), "usern.txt")
    End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
FindUser("http://www.helpmedothisplease.com/usern.txt")
End Sub

Private Sub WebClient1_DownloadFileCompleted(ByVal sender As System.Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles WebClient1.DownloadFileCompleted
Dim usern() As String = System.IO.File.ReadAllLines("usern.txt")
        For Each strItem As String In usern
            Application.DoEvents()
            If strItem = TextBox1.Text Then
        If My.Computer.FileSystem.FileExists("usern.txt") Then
            My.Computer.FileSystem.DeleteFile("usern.txt")
        End If
            msgbox("success!")
                Exit Sub
            End If
        Next
        If My.Computer.FileSystem.FileExists("usern.txt") Then
            My.Computer.FileSystem.DeleteFile("usern.txt")
        End If
        msgbox("error!")