Вывести список имен в папке на FTP сервере

Imports System.Net
Imports System.IO
Public Class Form1
 
    Private Sub listFTP(ByVal URL As String, ByVal bk As String, ByVal pw As String)
        Dim requ As FtpWebRequest = Nothing
        Dim resp As FtpWebResponse = Nothing
        Dim reader As StreamReader = Nothing
        Try
            requ = CType(WebRequest.Create(URL), FtpWebRequest)
            requ.Credentials = New NetworkCredential(bk, pw)
            requ.Method = WebRequestMethods.Ftp.ListDirectory
            resp = CType(requ.GetResponse(), FtpWebResponse)
            reader = New StreamReader(resp.GetResponseStream())
            While (reader.Peek() > -1)
                ListBox1.Items.Add(reader.ReadLine())
            End While
            ToolStripStatusLabel1.Text = "Листинг завершен!"
        Catch ex As UriFormatException
            ToolStripStatusLabel1.Text = ex.Message
        Catch ex As WebException
            ToolStripStatusLabel2.Text = ex.Message
        Finally
            If reader IsNot Nothing Then reader.Close()
        End Try
    End Sub
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ListBox1.Items.Clear()
        listFTP(TextBox1.Text, TextBox2.Text, TextBox3.Text)
    End Sub
 
End Class

If Strings.left(Название_файла, 6) = "Листик" Then 'Если 6 символа слева равно Листик то....
Добавить_в_первый_Lisbox

 Dim arr() As String
        Dim request As Net.FtpWebRequest = Net.WebRequest.Create("ftp://путь")
        request.Credentials = New Net.NetworkCredential("login", "pass")
        request.Method = Net.WebRequestMethods.Ftp.ListDirectoryDetails
        Dim response As Net.FtpWebResponse = request.GetResponse()
        Dim responseStream As Stream = response.GetResponseStream()
        Dim reader As StreamReader = New StreamReader(responseStream)
        Dim lol As String
        Do
            lol = reader.ReadLine
            If Len(lol) < 3 Then Exit Do
            arr = Split(lol, vbNewLine)
            Dim T As String = ""
            For i = 0 To UBound(arr)
                If Len(arr(i)) > 3 Then
                    T = arr(i)
                    ListBox1.Items.Add(T.Substring(56, (arr(i).Length - 56)))
                End If
            Next
        Loop