Ciao lukeonweb grazie innanzitutto per la dritta ho implementato anche il controllo della validità dell'email, funziona benissimo...
Dim stringa, arr_str, s, email
stringa ="Il mio indirizzo email è
[email protected] scrivimi!"
arr_str = Split(stringa, " ")
For s = 0 To UBound(arr_str)...