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

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

Dim customerEmail As String = "test@reasonables.com"

Dim targetSubscription As String = "NoClone VIP"

Dim addOption As DoubleOptIn = DoubleOptIn.Off

Dim confirmIsNeeded As Boolean

'Create a SpreadWebService object and use its method.

Dim MySpread As New SpreadWebService

confirmIsNeeded = MySpread.addSubscriberByEmail(loginName, loginPassword, customerEmail, targetSubscription, addOption)

/**
* @name     addSubscriberByEmail
* @function ad subscriber email address
* @return
*   'Subscription XXX does not exists!'                        
*   'Email address XXX is not valid!'                          
*   'LoginEmail and Password do not match'                     
*   'False'                                                    
*   'True'                                                     
*/
public function addSubscriberByEmail($loginEmail,$password,$subscriberEmail,$subscription,$optInType){
    $arrayPara = array(
                'loginEmail'      => $loginEmail,
                'password'        => $password,
                'subscriberEmail' => $subscriberEmail,
                'subscription'    => $subscription,
                'optInType'       => $optInType
            );
    $client = new SoapClient("http://service.rspread.com/Service.asmx?WSDL");
    $result = $client->addSubscriberByEmail($arrayPara);
    return $result;
}