If My.Computer.FileSystem.DirectoryExists("C:Accounts") = True Then
Else
MkDir("C:Accounts")
End If
If My.Computer.FileSystem.DirectoryExists("C:Accounts" + TextBox1.Text + "") = True Then
MsgBox("Error, Account is already in Use", MsgBoxStyle.Critical)
Else
If TextBox1.Text = "" Then
MsgBox("Error, Your Account Must have at least 1 Letter in it.", MsgBoxStyle.Information)
Else
If TextBox2.Text = "" Then
'If they did Not input a Password, Show an Error message.
MsgBox("Error, Please Input a Password for your Account")
Else
MkDir("C:Accounts" + TextBox1.Text)
Dim Username As New System.IO.StreamWriter("C:Accounts" + TextBox1.Text + "" + "Username.txt")
Username.Write(TextBox1.Text)
Username.Close()
Dim Password As New System.IO.StreamWriter("C:Accounts" + TextBox1.Text + "" + "Password.txt")
Password.Write(TextBox2.Text)
Password.Close()
Me.Close()
End If
End If
End If

