Try

                ' Setup session options

                Dim sessionOptions As New SessionOptions

                With sessionOptions

                    .Protocol = Protocol.Sftp

                    .HostName = My.Settings.SFTPServer

                    .UserName = My.Settings.SFTPUsername

                    .Password = My.Settings.SFTPPassword

                    .PortNumber = My.Settings.SFTPPort

                    .SshHostKeyFingerprint = My.Settings.SSHKeyFingerPrint

                End With



                Using session As Session = New Session

                    ' Connect

                    session.Open(sessionOptions)



                    ' Upload files

                    Dim transferOptions As New TransferOptions

                    transferOptions.TransferMode = TransferMode.Binary



                    Dim transferResult As TransferOperationResult

                    transferResult = session.PutFiles("c:\bla.xml", My.Settings.SFTPRemoteUploadPath, False, transferOptions)



                    ' Throw on any error

                    transferResult.Check()



                    ' Print results

                    Dim transfer As TransferEventArgs

                    For Each transfer In transferResult.Transfers

                        Messagebox.show ("Uploaded: " & transfer.FileName)

                    Next

                End Using

            Catch e As Exception

                Messagebox.show (e.Message.ToString)

            End Try