Searching for a specific word in a text file using VB6

[LizAmmo]

For a school project i am attempting to create a register and login section of a program. i have managed to create the register by writing user names and passwords to a text document, as we cannot use access databases. however in order to do the actual login i have no idea on how to search the text file for a specific password. All my inputs are in text boxes, and i was wondering if anyone could be any help.

[Guido Geurs]

Put the text from the file with the name and passwords in an array (total text).
Split each array input (total text) into an second array.
Find in this second array the name and password.

See attachment

[LizAmmo]

this is my code

Option Explicit
Dim ArrayPassword() As String

Private Sub Form_Load()
Dim FileIn As Integer
Dim inputdata As String
ReDim ArrayPassword(0)
FileIn = FreeFile
On Error GoTo Error_Laden
Open "\\MAM-INET\aimee.burns$\SDD\Year12\project\passwords.txt " For Input As #FileIn
Do While Not EOF(FileIn)
ReDim Preserve ArrayPassword(UBound(ArrayPassword) + 1)
Input #FileIn, inputdata
ArrayPassword(UBound(ArrayPassword)) = inputdata
Loop
Close #FileIn
Exit Sub
Error_Laden:
Close #FileIn
MsgBox ("Error loading !")
End Sub

Private Sub Command1_Click()
Dim ArrPasswordIdx As Integer
Dim ArrayPWLine() As String
Dim Found As Boolean
Found = False
For ArrPasswordIdx = LBound(ArrayPassword) + 1 To UBound(ArrayPassword)
ReDim ArrPwline(0)
ArrayPWLine = Split(ArrayPassword(ArrPasswordIdx), " ")
If ArrayPWLine(0) = txtUsername.Text Then
txtpassword.Text = ArrayPWLine(1)
Found = True
End If
Next
If Found = False Then
txtpassword.Text = ""
MsgBox "Not a valid name"
End If
End Sub

however i keep getting "subscript out of range" errors
the code ive used for writing the username and password to a file is

Private Sub cmdRegister_Click()
Dim EmployeeName As String
EmployeeName = txtUsername
Open "\\MAM-INET\aimee.burns$\SDD\Year12\project\Passwords.txt " For Append As #1
Dim Password As Integer
Password = Int(Rnd * 1000) + 1 'Generate number
MsgBox "Your pass number is" & Password
Print #1, EmployeeName, Password
Close #1
frmmanagelogin.Show
Unload Me
End Sub

Private Sub Form_Load()

End Sub

im using random no. generator cause its part of our program specifications. any idea on how to fix this?

[Guido Geurs]

Your code=

Print #1, EmployeeName, Password

sets a TAB between name and password while the textline is split with a SPACE=

ArrayPWLine = Split(ArrayPassword(ArrPasswordIdx), " ")

The TAB as separator gives "subscript out of range" by splitting the line.
It must be:

Print #1, EmployeeName & " " & Password

If You use RND, You must also initialize the generator with: Randomize (see attachment) (see also help of VB6)

If it still not work on Your PC, please attach Your VB6 project (Zipped) in BYTES.

PS !! I have put some lines in comment !! it's for doing some tests !! Your code is not wrong !!!

[LizAmmo]

Yay, Success at last. Thankyou,Thankyou,Thankyou,Thankyou,Thankyou,Thank you,