C# / VB.NET - Creazione Cartella via FTP

Buongiorno, mi sto cimentando nella creazione di file e cartelle su FTP.
Ho trovato questo codice e per i file funziona egregiamente.
Mi aiutate e modificarlo in un copia dello stesso codice che però crea una cartella?

Grazie

    Sub InviaFtp(FileName As String)
        Try
            Dim clsRequest As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("ftp://ftpwin.miosito.it/miosito.it/ftp/" + FileName), System.Net.FtpWebRequest)
            clsRequest.Credentials = New System.Net.NetworkCredential("xxxx@aruba.it", "123456789")
            clsRequest.Method = System.Net.WebRequestMethods.Ftp.UploadFile
            Dim clsStream As System.IO.Stream = clsRequest.GetRequestStream()
            clsStream.Write(System.IO.File.ReadAllBytes(PathFolder + FileName), 0, System.IO.File.ReadAllBytes(PathFolder + FileName).Length)
            clsStream.Close()
            clsStream.Dispose()

        Catch ex As Exception
            Throw New Exception(ex.Message & " - Errore Trasferimento FTP per il file: " + FileName)
        End Try
    End Sub

così sarebbe corretto?

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim ftpStream As Stream = Nothing
        Try
            Dim clsRequest As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("ftp://miosito.it/miosito.it/ftp/" + "pluto"), System.Net.FtpWebRequest)
            clsRequest.Credentials = New System.Net.NetworkCredential("xxxx@aruba.it", "12345")
            clsRequest.Method = WebRequestMethods.Ftp.MakeDirectory
            Dim response As FtpWebResponse = DirectCast(clsRequest.GetResponse(), FtpWebResponse)
            ftpStream = response.GetResponseStream()
            ftpStream.Close()
            response.Close()

        Catch ex As Exception
            Throw New Exception(ex.Message & " - Errore Trasferimento FTP per il file: " + "pluto")
        End Try

    End Sub