Dim loginName As String = "spread@reasonables.com"

Dim loginPassword As String = "TEST0000-TEST-0000-TEST-0000TEST0000"

Dim myNewSubsciption As String = "NoClone VIP"

Dim myNewDiscription As String = "NoClone VIPs are added to here."

Dim isSuccessful As Boolean

'Create a SpreadWebService object and use its method.

Dim MySpread As New SpreadWebService

isSuccessful = MySpread.createSubscription(loginName, loginPassword, _ subscriptionName, description)

      /**
     * @name     createList
     * @function create sending list
     * @param
     *  ListName	name of sending list
     *  ListDes		description of sending list
     * @return
	 *	-1       failed to create sending list
     */
    public function createList($loginEmail,$password,$listName,$listDes ){
        $ListArr = array(
            'loginEmail'        => $loginEmail,
            'password'          => $password,
            'subscriptionName'  => $listName,
            'description'       => $listDes
        );
        $Client=new SoapClient("http://service.rspread.com/Service.asmx?WSDL");
        $isSuccessful = $Client -> createSubscription( $ListArr );
        if( empty( $isSuccessful ) ){
            return -1;
        }
        return 0;
    }