Sub GetUserName
Dim TextReader1 As TextReader
Dim User As String = "ABC"
Dim Pword As String = "123"
TextReader1.Initialize(File.OpenInput(File.DirRootExternal, "Text.txt"))
Dim line As String
line = TextReader1.ReadLine
Do While line <> Null
If line = User Then 'if user is found then read next line to check password
line = TextReader1.ReadLine
If line = Pword Then
Log ("User is OK")
Else
Log ("Incorrect password")
End If
End If
line = TextReader1.ReadLine
Loop
TextReader1.Close
End Sub