Dim objGlobal Set objGlobal = CreateObject("sfFTPLib.Global")
...
' Replace the string with the serial
objGlobal.LoadLicense("XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX")