When i try to login to a created account iy doesnt recognise the username, why is this?

Question

Module Module1
    Dim database As New Dictionary(Of String, String)
    Dim ulist As New List(Of String)
    Dim plist As New List(Of String)
    Dim newname As String