Form: http://prntscr.com/i2as9n
Enter Information Code:

Imports System.IO

Public Class Form2
    Dim EnterName As String
    Dim EnterAge As String
    Dim EnterYearGroup As String
    Dim EnterPassword As String
    Dim ShortName As String
    Dim UserName As String


    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim MyRegister As New Form1
        MyRegister.Show()
        Me.Close()
    End Sub

    Private Sub SignUpConfirm_Click(sender As Object, e As EventArgs) Handles SignUpConfirm.Click
        ShortName = EnterName.Substring(0, 3)
        UserName = ShortName & EnterAge


        'Dim WriteUser As New StreamWriter("H:\My Documents\Computing\NEA\usernames.txt", True)

        Dim WriteUser As New StreamWriter("C:\NEA BTW\usernames.txt", True)
        WriteUser.WriteLine(UserName & " " & EnterName & " " & EnterAge & " " & EnterYearGroup & " " & EnterPassword)
        WriteUser.Close()


        MessageBox.Show("Hello " & EnterName & ". Your username is " & UserName & " & your password is: " & EnterPassword)
    End Sub

    Private Sub Textbox1_TextChanged(sender As Object, e As EventArgs) Handles Textbox1.TextChanged
        EnterName = Textbox1.Text

    End Sub

    Private Sub Textbox2_TextChanged(sender As Object, e As EventArgs) Handles Textbox2.TextChanged
        EnterAge = Textbox2.Text
    End Sub

    Private Sub Textbox3_TextChanged(sender As Object, e As EventArgs) Handles Textbox3.TextChanged
        EnterYearGroup = Textbox3.Text
    End Sub

    Private Sub Textbox4_TextChanged(sender As Object, e As EventArgs) Handles Textbox4.TextChanged
        EnterPassword = Textbox4.Text
    End Sub
End Class

Login Form: http://prntscr.com/i2asi0
Login Code: STUCK WITH!
Imports System.IO


Public Class Form1

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Dim Back As New Form2
        Back.Show()
        Me.Close()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click




        If TextBox1.Text = UserName And TextBox2.Text = EnterPassword Then
            Form3.Show()
            Me.Hide()
        End If
    End Sub
End Class