[RESOLVED] Code not Executing?

[Legjendat]

Ok, my problem is very straightforward, but I have no idea why the code won't execute. The first 2 MsgBox-es popup fine, but after that it seems like the rest of the code doesn't get executed, and to be honest it's driving me crazy since I have no clue as to why it's happening.

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Dim ProgramFiles As String = Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles)
        Dim LegLabs As String = ProgramFiles & "\Leg Labs"
        Dim FileRenamer As String = LegLabs & "\File Renamer"
 
        If Directory.Exists(FileRenamer) Then
            MsgBox("Add to Startup Check")
            Using FileRead As StreamReader = New StreamReader(FileRenamer & "\Add to Startup.txt")
                If FileRead.ReadToEnd.ToString.Contains("True") Then
                    Form3.StartupCheckBox.Checked = True
                Else
                    Form3.StartupCheckBox.Checked = False
                End If
                FileRead.Close()
            End Using
        End If
 
        If Directory.Exists(FileRenamer) Then
            MsgBox("Show Icon Tray Check") ' IT SEEMS LIKE THIS IS THE POINT WHERE THE CODE STOPS EXECUTING.
            Using Fileread As StreamReader = New StreamReader(FileRenamer & "\Show Icon in Tray.txt")
                If Fileread.ReadToEnd.ToString.Contains("True") Then
                    '           MsgBox("aaaaaaaa") THIS MSGBOX DOESN'T POPUP
                    Form3.TrayIconBox.Checked = True
                    '    NotifyIcon1.Visible = True
                Else
                    Form3.TrayIconBox.Checked = False
                    '      NotifyIcon1.Visible = False
                End If
                Fileread.Close()
            End Using
            MsgBox("zbzbz") ' THIS MSGBOX DOESN'T POPUP EITHER AND THE CODE BELOW DOESN'T EXECUTE
        End If
 
        MsgBox(FileRenamer)
 
        If Directory.Exists(FileRenamer) Then
            MsgBox("Always on Top Check")
            Using FileRead As StreamReader = New StreamReader(FileRenamer & "\Always on Top.txt")
                If FileRead.ReadToEnd.ToString.Contains("True") Then
                    Form3.AlwaysOnTopCheckBox.Checked = True
                    '     MsgBox("Supposedly Done")
                    Me.TopMost = True
                Else
                    '    MsgBox("WHAT THE ****?")
                    Form3.AlwaysOnTopCheckBox.Checked = False
                    Me.TopMost = False
                End If
 
                FileRead.Close()
            End Using
        End If
 
        MsgBox("File Renamer")
        NotifyIcon1.Text = "File Renamer"
        Timer1.Start()