Куда в таком простом коде утекает память?

        For Each dir_name As String In Directory.GetDirectories(Application.StartupPath())
            For Each file_name As String In Directory.GetFiles(dir_name)
                If file_name.Substring(file_name.Length - 3) = "tif" Then
                    imgGFC1 = New Bitmap(file_name)
                End If
                If Dir("1" & file_name) <> "" Then ' наличие этого условия пожирает память
                    ' не важно какой здесь код, наличие этого условия пожирает память
                End If
                GC.Collect() ' Вызов сборщика мусора, никакого проку нет
            Next
        Next

Dim tifFiles = Directory.GetFiles(Application.StartupPath, "*.tif", SearchOption.AllDirectories)

        For Each TifFiles As String In Directory.GetFiles(Application.StartupPath, "*.tif", SearchOption.AllDirectories)
            imgGFC1 = New Bitmap(TifFiles)
            If Dir("1" & TifFiles) <> "" Then ' наличие этого условия пожирает память
                ' не важно какой здесь код, наличие этого условия пожирает память
            End If
            GC.Collect() ' Вызов сборщика мусора
        Next

If Len(Dir("1" & file_name)) = 0 Then

If Len(Dir(Application.StartupPath & "\1" & file_name)) = 0 Then

If Not My.Computer.FileSystem.FileExists(FileIO.FileSystem.GetFileInfo(TifFiles).DirectoryName & "1" & FileIO.FileSystem.GetName(TifFiles))