Try
 
            Dim sFTPHost As String = "ftp://ftpIP.de/"
            Dim sUserName As String = "user"
            Dim sPassword As String = "pass"
            My.Computer.Network.UploadFile(sLocalPath & "\" & sLocalName, _
              sFTPHost & "www/images/stories/Referenzen/" & sLocalName, _
             sUserName, sPassword, True, 1000, _
             FileIO.UICancelOption.ThrowException)
            'System.Threading.Thread.Sleep(1500)
        Catch ex As Exception
            MsgBox(ex.InnerException)
        End Try