invece di:
Dim client As SmtpClient = New SmtpClient("smtp.tiscali.it", 465)
prova a mettere:
Dim client As SmtpClient = New SmtpClient("smtp.tiscali.it")