Dim loginEmail As String = "Spread@reasonables.com"

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

Dim subscriberEmail As String = "Spread@reasonables.com"

Dim contactListName As String = "NoClone VIP"

Dim MySpread As New SpreadAPI.SpreadWebService

Dim result As Boolean = MySpread.UnsubscribeEmailInContactList(loginEmail,APIKey,subscriberEmail,contactListName)

    /**
    * @name     UnsubscribeEmailInContactList
    * @function unsubscribe email in contactList
    * @param
    *  subscriberEmail: The email of subscriber.
    *  contactListName: The name of contactList.
    * @return
    *          if success return true else return false.
    */
    public function UnsubscribeEmailInContactList($loginEmail,$APIKey,$subscriberEmail,$contactListName){
        $array = array(
	        'loginEmail'        => $loginEmail,
	        'APIKey'	    => $APIKey,
	        'subscriberEmail'  => $subscriberEmail
    	        'contactListName'  => $contactListName

        );
        $Client=new SoapClient("http://service.rspread.com/Service.asmx?WSDL");
        return $Client -> UnsubscribeEmailInContactList( $array );
    }