Вы уверены, что ваш компьютер (127.0.0.1, loopback ip) является SMTP-сервером?
Dim smtp As New SmtpClient(host)
означает, что ваш компьютер пытается подключиться к серверу smtp host и использовать его для отправкиэлектронное письмо.
Проверьте это, и вы решите свою проблему ...
Просто попробуйте: замените 127.0.0.1 на SMTP-сервер по умолчанию, который вы используете в своей почтовой программе, и посмотрите, что произойдет...
Подробнее: перехватить исключение (если оно поднято) и принять к сведению сообщение ...