ftp upload fejl

Hej. Er der nogen der kan sige mig hvorfor jeg får time out når jeg prøver at uploade til ftp:

Jeg kan se at filen bliver oprettet på serveren, men der fylder 0 byte.


  Private Sub Upload(ByVal source As String, ByVal target As String, ByVal Binary As Boolean)
        Dim req As FtpWebRequest = DirectCast(WebRequest.Create(target), FtpWebRequest)
        req.Method = WebRequestMethods.Ftp.UploadFile
        req.UseBinary = Binary
        req.UsePassive = False
        If Binary Then
            Dim instm As Stream = New FileStream(source, FileMode.Open, FileAccess.Read)
fejl her ---->  Dim outstm As Stream = req.GetRequestStream()
            Dim b As Byte() = New Byte(10000) {}
            Dim n As Integer
            n = instm.Read(b, 0, b.Length)
            While n > 0
                outstm.Write(b, 0, n)
                n = instm.Read(b, 0, b.Length)
            End While
            instm.Close()
            outstm.Close()
        Else
            Dim sr As StreamReader = New StreamReader(source)
            Dim sw As StreamWriter = New StreamWriter(req.GetRequestStream())
            Dim line As String
            line = sr.ReadLine()
            While line IsNot Nothing
                sw.WriteLine(line)
                line = sr.ReadLine()
            End While
            sr.Close()
            sw.Close()
        End If
        Dim resp As FtpWebResponse = DirectCast(req.GetResponse(), FtpWebResponse)
    End Sub