VBA Userchecksubroutine skips code

[mysticmario]

Hi when i execute this code:

Sub FileSystemObj()
Sheets("KARTA REALIZACJI").Visible = True
Application.ScreenUpdating = False
  Dim line As String
  Dim FSO As Object
  Dim TS As Object
  Dim PATH As String
  Dim usercheck As String
  usercheck = InputBox("Podaj hasło dostępu", "Hasło")
  
  If usercheck = "witek" Then
  Sheets("Admin").Range("CurrentUsr").Value = "Witold"
        PATH = Sheets("Admin").Range("A31").Value
    ElseIf usercheck = "konrad" Then
    Sheets("Admin").Range("CurrentUsr").Value = "Konrad"
        PATH = Sheets("Admin").Range("A32").Value
    ElseIf usercheck = "damian" Then
    Sheets("Admin").Range("CurrentUsr").Value = "Damian"
        PATH = Sheets("Admin").Range("A33").Value
    ElseIf usercheck = "admin" Then
    Sheets("Admin").Range("CurrentUsr").Value = "Mariusz"
        PATH = Sheets("Admin").Range("A34").Value
    Else: MsgBox "Błędne hasło": Exit Sub
          
  Set FSO = CreateObject("Scripting.FileSystemObject")
  Set TS = FSO.OpenTextFile(PATH)
  Sheets("KARTA REALZIACJI").Range("B150").Select
  Do While Not TS.AtEndOfStream
     line = TS.ReadLine
     ActiveCell = line
     ActiveCell.Offset(1, 0).Select
  Loop
  TS.Close
  Set TS = Nothing
  Set FSO = Nothing
Application.ScreenUpdating = True
Sheets("KARTA REALZIACJI").Range("D148").Value = Date
End If
Sheets("KARTA REALIZACJI").Visible = False
End Sub

after usercheck all of this is skipped:

Set FSO = CreateObject("Scripting.FileSystemObject")
  Set TS = FSO.OpenTextFile(PATH)
  Sheets("KARTA REALZIACJI").Range("B150").Select
  Do While Not TS.AtEndOfStream
     line = TS.ReadLine
     ActiveCell = line
     ActiveCell.Offset(1, 0).Select
  Loop
  TS.Close
  Set TS = Nothing
  Set FSO = Nothing
Application.ScreenUpdating = True
Sheets("KARTA REALZIACJI").Range("D148").Value = Date

I run this code a lot without usercheck in a different **** withotu a problem.
Any idea why this happens?

 

[RoryA]

Does the indenting actually matter other than visual refference?

It doesn't affect the way the code works but it should make the structure more obvious, which usually helps to figure out why the code is not doing what you want.