When I run the follwing code to get a password from a text file, lblPasswrd.caption returns empty. It is probably a simple mistake, but I'm stuck.

Code:
lblCurProc.Caption = "Getting users password!"
Open App.Path & "/Users/" & UName & ".txt" For Input As #2
count1 = "1"
Line Input #2, fin$
Line Input #2, fin$
Line Input #2, fin$
Line Input #2, fin$
lblPasswrd.Caption = fin$
wsServer.SendData Chr$(33) & "CMDPASSWORD" & Chr$(0)

Close #2
DoEvents

The Text file is like the following:
Some Info
Other Info
More Info
MyPass