Números de Pastas na Hospedagem FTP VB.NET

Ai Galera quem pode min ajudar. Depois de tanta pesquisa acabei achando estes scripts, era em C# coloquei para VB.NET agora esta dando erro, tem algo de errado no script ? Ele servira para contar quantas pastas tem e um determinado arquivo.

Ajuda PLz

Public Function response() As FtpWebResponse
Dim liArquivos As New List(Of String)()
'Cria comunicação com o servidor
'Definir o diretório a ser listado
Dim request As FtpWebRequest = CType(WebRequest.Create("ftp://servidor.com.br/images/"), FtpWebRequest)
'Define que a ação vai ser de listar diretório
request.Method = WebRequestMethods.Ftp.ListDirectoryDetails
'Credenciais para o login (usuario, senha)
request.Credentials = New NetworkCredential("usuario", "senha")
'modo passivo
request.UsePassive = True
'dados binarios
request.UseBinary = True
'setar o KeepAlive para true
request.KeepAlive = True

'Criando a Stream para pegar o retorno
Dim responseStream As Stream = response.GetResponseStream()
Using reader As New StreamReader(responseStream)
'Adicionar os arquivos na lista
liArquivos = reader.ReadToEnd().Split(Environment.NewLine.ToCharArray(), StringSplitOptions.RemoveEmptyEntries).Count
End Using

End Function