Visual Basic 2008 1. Hard Program (for begginers)

INTERDUTION:
hello,this will be a hard program both then youl learn bether and lets start:

this is a login program it isnt that dammit dum login this is a login system that saves the account data

both you have to know somethinks not knowledge!!!!!!!!!

this will be a program just for login and register if you want my login system v.Pro VERRY COOOL

then your email please

create there buttons and put them down.Create 2 textboxes with names:

UsernameBox1

PasswordBox1

button1's name will be Quit and the script for that button is just:

close()

then

button2 is Login and 3 Register

register script:

if Usernamebox1.text = "" or Passwordbox1.text = "" Then
msgbox("Account Error" , , "Error")
elseif my.computer.filesystem.directoryexists("C:\Accounts\" + Usernamebox1.text + "\") = True Then
msgbox("Account Error" , , "Error")
else
mkdir("C:\Accounts\" + Usernamebox1.text + "\")
dim ra as new system.io.streamwriter("C:\Accounts\" + Usernamebox1.text + "\" + "username.txt")
ra.write(Usernamebox1.text)
ra.close
dim ba as new system.io.streamwriter("C:\Accounts\" + Usernamebox1.text + "\" + "password.txt")
ba.close
msgbox("Account Created Succesfully" , , "Succes")

okey, if you have a error with End if then just add on the script:
End if

Login button script:

if usernamebox1.text = "" or passwordbox1.text = "" Then
msgbox("Account Error" , , "Error")
elseif my.computer.filesystem.directoryexists("C:\Accounts\" + Usernamebox1.text + "\") = False
msgbox("Account Error" , , "Error")
usernamebox1.clear
else
dim rdu as new system.IO.streamreader("C:\Accounts\" + Usernamebox1.text + "\" + "username.txt")
dim rdp as new system.IO.streamreader("C:\Accounts\" + Usernamebox1.text + "\" + "password.txt")
if Usernamebox1.text = rdu.readtoend = False or Passwordbox1.text = rdp.readtoend Then
msgbox("Account Error!" , , "Error")
else
msgbox("Logged In." , , "Error")

after that error nothink else will happen cuz this isnt mine Login System v.Pro that i exedently Deleted