Přihlašovací script - chyba – Visual Basic – Fórum – Programujte.com

Zdravím, potřeboval bych pomoct s dvěma chybama ve scriptu na přihlášení a nějak si nevím rady.

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MsgBox("ERROR,YOU NEED AT LEAST ONE LETTER", MsgBoxStyle.Critical)
        Else
            If My.Computer.FileSystem.DirectoryExists(" C:\ACCOUNTS\" + TextBox1.Text + "\") Then
                Dim USERREAD As System.IO.StreamReader = New System.IO.StreamReader("C:\ACCOUNTS\" + TextBox1.Text + "\" + "USERNAME.TXT")
                Dim userline As String
                Dim PASSREAD As System.IO.StreamReader = New System.IO.StreamReader("C:\ACCOUNTS\" + TextBox1.Text + "\" + "PASSWORD.TXT")
                Dim PASSLINE As String
    Do PASSLINE = TextBox2.Text userline = USERREAD.ReadLine Console.WriteLine(PASSLINE) Console.WriteLine(userline) 
                Loop Until userline Is Nothing
                If TextBox2.Text = "" Then
                    MsgBox("error,PLEASE INPUT A PASSWORD", MsgBoxStyle.Critical)
                Else
                    If PASSLINE = PASSREAD.ReadLine() = True Then
    MsgBox("Youre Logd in " + TextBox1.Text) Form3.show()
                    End If
                End If
            Else
                MsgBox("THE USERNAME DONT EXIT", MsgBoxStyle.Critical)
            End If
        End If
    End Sub
End Class

A chyby jsou:

Error 1 Syntax error. C:\Users\Kluci\Desktop\OS-VEntertainment\OS-VEntertainment\Form1.vb 12 8 OS-VEntertainment

Error 2 End of statement expected. C:\Users\Kluci\Desktop\OS-VEntertainment\OS-VEntertainment\Form1.vb 18 46 OS-VEntertainment

není to těma zpětnejma lomítkama před uvozovkama?

#1 Grow
Problém je nejspíš v tom, že na jednom řádku máš zapsáno víc příkazů. Pokud to zapíšeš takto: 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MsgBox("ERROR,YOU NEED AT LEAST ONE LETTER", MsgBoxStyle.Critical)
        Else
            If My.Computer.FileSystem.DirectoryExists(" C:\ACCOUNTS\" + TextBox1.Text + "\") Then
                Dim USERREAD As System.IO.StreamReader = New System.IO.StreamReader("C:\ACCOUNTS\" + TextBox1.Text + "\" + "USERNAME.TXT")
                Dim userline As String
                Dim PASSREAD As System.IO.StreamReader = New System.IO.StreamReader("C:\ACCOUNTS\" + TextBox1.Text + "\" + "PASSWORD.TXT")
                Dim PASSLINE As String
                Do
                    PASSLINE = TextBox2.Text
                    userline = USERREAD.ReadLine
                    Console.WriteLine(PASSLINE)
                    Console.WriteLine(userline)
                Loop Until userline Is Nothing
                If TextBox2.Text = "" Then
                    MsgBox("error,PLEASE INPUT A PASSWORD", MsgBoxStyle.Critical)
                Else
                    If PASSLINE = PASSREAD.ReadLine() = True Then
                        MsgBox("Youre Logd in " + TextBox1.Text)
                        Form3.Show()
                    End If
                End If
            Else
                MsgBox("THE USERNAME DONT EXIT", MsgBoxStyle.Critical)
            End If
        End If
    End Sub

chyby by měly zmizet.