IF Works But Loop Required - Huge Network With 20+ File Servers All With Data Spread Out Across Them

My app is a fairly simple and im sure with the right knowledge this would take 2 minutes.. but sadly iv been at it for hours. So my scenario here is a huge network with 20+ file servers all with data spread out across them it can take hours to find the folder required.

Hence this app.. so it consist of a input box, progress bar and a button, using FileSystemObject I plan to interrogate a directory to see if a folder exists (folder specified by user input) however it need to check multiple directories, in my old app I used a list box which wrote to a text file allowing the user to add additional directories then using if statements proceeded through the servers.. however they have added that much that my IF's have ran out really because i know it should have been a loop

Imports System
Imports System.IO
Public Class Frm_main
Private Const FILE_NAME As String = "C:directories.txt"
Dim objReader As New System.IO.StreamReader(FILE_NAME)
Dim Lines() As String = IO.File.ReadAllLines(FILE_NAME)
Dim Dir As String

[CODE]...................