My.Computer.Network.UploadFile( _
                                Me.CB_S4T_CSV.Text & "\daparto.csv", _
                                CB_FTP_TextBox_Server.Text & "/daparto.csv", _
                                CB_FTP_TextBox_USER.Text, _
                                CB_FTP_TextBox_PSW.Text, _
                                True, _
                                1000, _
                                FileIO.UICancelOption.DoNothing _
                                )