something like this, i would guess:

Dim sr as StreamReader = File.OpenText("C:\test.txt")   
Dim password as string


if  PasswordTextBox = 'a value inside the text file'

then 'proceed to next screen'

else 'password incorrect'

Private FileName AsString
Dim sr As StreamReader
 
Function MyParseFunc(ByVal strFileName AsString)
 
Try
 
FileName = strFileName
 
sr = New StreamReader(FileName) 'using streamreader to read the opened text file
 
Dim strHTml AsString = sr.ReadToEnd
 
Dim userinput AsString = variable_passed
 
 
Dim strStop AsString = "#end#" 'put this at the end of the file so it marks it as the end of file.
Do
 
Select case strHtml
  Case strHtml = LTime
 'Do something here
  Case strHtml = CTime
'Do something here
LoopWhile strHTml <> strStop
 
Catch es As Exception
 
MessageBox.Show(es.Message)
 
Finally
 
If Not (sr IsNothing) Then
 
sr.Close()
 
EndIf
 
EndTry
 
End Function