ecco appunto dentro la variabile
recipients sono contenute tutte le email separata da ","


quindi puoi fare:
arrayemail = split(strEmail, ",")

indice = 0
max = UBOUND(arrayemail)


WHILE NOT i> MAX

'qui metti il codice che manda l'email modificando solo questa riga anzichè:
'cdoMessage.To = strEmail
'scriverai:
cdoMessage.To = arrayemail(i)

i = i + 1
WEND