upload file con sftp

Buenos días, alguien podrá darme alguna pista.
Estoy tratando de armar una aplicación que saque una foto y suba esta a una carpeta de un servidor con sftp.
Para ver de armar esto, utilice un ejemplo que hace Erel en
http://ift.tt/22iJ6vG
el programa no tira errores pero no sube la foto como esperaba.
Alguien me puede orientar donde me estoy equivocando

ub Process_Globals
Dim sftp1 As SFtp
End Sub

Sub Globals...

upload file con sftp

from B4X Community - Android, iOS, desktop, server and IoT programming tools http://ift.tt/1O8wMeI
via IFTTT