How to Set FTP Connection Manager Password Using Script Task(VB)

1.Create the FTP Connection Manager and Enter the "Server name"  and "UserName".Here the Connection manager name is CNRL_FTP Connection Manager

 

2.Public Sub Main()

        Dim FTPConnectionManager As ConnectionManager

        'Set variable to an existing connection manager

        FTPConnectionManager = Dts.Connections("CNRL_FTP Connection Manager")

        'Set connection manager property "ServerPassword"

        FTPConnectionManager.Properties("ServerPassword").SetValue(FTPConnectionManager, "cnrlPUftp")

            Dts.TaskResult = ScriptResults.Success

      End Sub