перебирать файлы в каталоге с помощью FileInfo

В моем приложении — когда пользователи открывают определенную форму, при загрузке страницы я хочу иметь возможность перейти в определенный каталог — обновить некоторые файлы, а затем отобразить их пользователю. Для этого я использую этот код....

Dim di as New DirectoryInfo ("C:\inbox")
dim ArrFi as FileInfo() = di.GetFiles()
Dim fri as FileInfo

if fri.count = 0 then 'If there's no files then no need to stay
  Exit sub
End if

Теперь в этом цикле ниже моя цель — проверить, имеет ли конкретный файл определенное расширение. Я сделал это в другом месте, но использовал STRING в качестве имени каталога/файла, и в этом случае я сделал это...

if stringFileName.EndsWith("TIF") then
  'DO whatever
End if

Однако я не могу сделать это здесь. Я в основном ищу цикл по каждому файлу и делаю что-то только тогда, когда расширение .TIF, но я не уверен, как это сделать, так как я использую FileInfo

For each fri in ArrFi
     if Fri.endsWith = "TIF" Then
       'do something
     else
        'Onto next file
     End if
Next Fri