FTPWebrequest won't make directory

[zacy5000]

Hey,
I have this code:

 Dim Dir = ftphost & d.ToString("/yyyy")
            Dim ftpReq As FtpWebRequest = WebRequest.Create(Dir)
            ftpReq.Credentials = New NetworkCredential(ftpun, ftppass)
            ftpReq.Method = WebRequestMethods.Ftp.MakeDirectory

            Dir = (ftphost & d.ToString("/yyyy/") & d.ToString("MM"))

            Dim a As FtpWebRequest = WebRequest.Create(Dir)
            a.Credentials = New NetworkCredential(ftpun, ftppass)
            a.Method = WebRequestMethods.Ftp.MakeDirectory

            Dir = ftphost & d.ToString("/yyyy/") & d.ToString("MM/") & d.ToString("dd")
            Dim c As FtpWebRequest = WebRequest.Create(Dir)
            c.Credentials = New NetworkCredential(ftpun, ftppass)
            c.Method = WebRequestMethods.Ftp.MakeDirectory
            MsgBox("DONE")

Assuming that ftpun and ftppass is correct why won't the directory be made. It does not output all it does is shows as done but its not made a folder. Why wont it work? I have tried using functions and different methods but it still wont work.
Thanks,
Zacy5000