Problemas al descargar archivos .gz a un servidor

Buenos Días a todos,

Solicito de urgencia su ayuda, estoy haciendo una aplicación que se conecta a un servidor FTP y descarga archivos con comprimidos .gz ( el código se muestra abajo), el problema es cuando descargo los archivos y los intento abrir me manda el error "El archivo tiene un formato desconocido o esta dañado",  la verdad no se que podra ser ya probe con los distintos tipos de decodificacion y ni a un asi, pero los arhivos si los descargamos manual no tenemos ningún problema les agradeceria su valiosa ayuda

Dim dirFtp As FtpWebRequest = CType(FtpWebRequest.Create(Dir), FtpWebRequest)

' Los datos del usuario (credenciales)

Dim cr As New NetworkCredential(user, pwd)

Dim ftpResponse As FtpWebResponse = CType(dirFtp.GetResponse, FtpWebResponse)

' El comando a ejecutar

''dirFtp.Method = "RETR"

' También usando la enumeración de WebRequestMethods.Ftp

' Obtener el resultado del comando

Dim reader As StreamReader = Nothing

Dim writer As StreamWriter = Nothing

reader = New StreamReader(dirFtp.GetResponse().GetResponseStream(), System.Text.Encoding.UTF8)

''writer = New StreamWriter("G:\BACK UP's\PRUEBAS\prueba\" & NombreArch, False)

writer = New StreamWriter("c:\BPADI\bp_archivoservidor\" & NombreArch, True)

Dim stream As Stream = Nothing