Excel VBA upload via SFTP

Dear members,

In the past I used this code below to automatically upload files to my FTP. Now I moved to SFTP and it doesnt work anymore.

Does someone know how to upload to #SFTP via VBA?

Thanks and have a nice day,

Ronald

'---------------------------------------------------------------------------------
'set variable parameters
TempFolderName = "zqqftptemp"
DiscName = "C" 'put the name of disc for temporary files, for example "D".
ftpSite = "xxxxxxx 'put the website name, for example "mywebsite.com"
ftpPath = "/articles" 'put the path to ftp folder, for example "/public_html/uploaded_files/"
ftpLogin = "xxxxx" 'put your ftp login, for example "john123"
ftpPassword = "xxxxxxx" 'put your ftp password, for example "pass123"
'---------------------------------------------------------------------------------

This code doesn't do anything, it's useless.

Hi, yes its just as an example here.
Got an idea how to upload it to SFTP?

Another example

Code:

---

Sub M_snb()
  uploadFTp "example"
End Sub

---