Dim objSource
Set objSource = CreateObject("sfFTPLib.FTPConnectionSTA")
Dim objDestination
Set objDestination = CreateObject("sfFTPLib.FTPConnectionSTA")

' TODO: Set the connection settings
' One passive and one port
objSource.Passive = false
objDestination.Passive = true

' SSCN if secured data transfer and one of the servers support it
'objSource.SSCN = true

' Connect
objSource.Connect()
objDestination.Connect()

' FTPFXP object
Dim objFXP
Set objFXP = CreateObject("sfFTPLib.FTPFXP")
objFXP.Source = objSource
objFXP.Destination = objDestination
objFXP.FXPFile("FileFrom", "FileTo", 0, 0)