Отправка сообщения по Winsock, ошибка Run-time error '40006' - VB

Формулировка задачи:

Доброго времени суток уважаемые кодеры! Нужна ваша помощь... Ошибка Run-time error'40006': Проблема в том что при отправке сообщения вылетает ошибка картинка во вложении. Соединение удается проверку делаю так:

tcpClient.RemoteHost = "127.0.0.1"
 
tcpClient.RemotePort = 1001
 
If Not tcpClient.State = sckOpen Then tcpClient.Connect
 
Но при отправке вылетает ошибка(((
tcpClient.SendData Действие

Решение задачи: «Отправка сообщения по Winsock, ошибка Run-time error '40006'»

textual
                            Листинг программы 
                        

                            'СБРОС ПРЕДЫДУЩЕГО ПИСЬМА
  Call SMTP1.Reset
 
  'УСТАНОВКА ПАРАМЕТРОВ СЕРВЕРА
  SMTP1.MailFromName = GetSetting("SCINSoft", "VBat", "FromName", txtNameOtpravitela)' к примеру от корпорации Майкрософт:)
  SMTP1.MailServer = GetSetting("SCINSoft", "VBat", "MailServer", txtsmtp)' по умолчанию smtp.mail.ru
  SMTP1.MailServerPort = Val(GetSetting("SCINSoft", "VBat", "MailServerPort", txtServerPort))' по умолчанию 25
  SMTP1.MailFrom = GetSetting("SCINSoft", "VBat", "FromMail", txtMail)' emeil отправителя
  SMTP1.AuthLogin = GetSetting("SCINSoft", "VBat", "AuthLogin", txtLogin)' логин отправителя
  SMTP1.AuthPassword = GetSetting("SCINSoft", "VBat", "AuthPassword", txtPass)' пароль отправителя
  SMTP1.MailPriority = (4 - Combo1.ListIndex)' приоритет отправки письма
                       'High = 2
                       'Norma = 3
                       'Low = 4
 
  'УСТАНОВКА ПАРАМЕТРОВ ПИСЬМА
  SMTP1.MailSubject = Text2' тема письма
  SMTP1.MailBody = Text3'текст письма
  SMTP1.MailTo = Text1' mail получателя
'ВЫЗЫВАЕМ ФУНКЦИЮ ОТПРАВКИ ПИСЬМА
  Call SMTP1.Send
                        