Отправка данных с текстового поля на e-mail - VB

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

нужна помощь. Я создал простейшую авторизацию : Имеется два текстовых поля и кнопка

                    Листинг программы
                
Private Sub Command1_Click()
If Text1.Text = "Краснов" And Text2.Text = "502" Thеn Form2.Visiblе = True Еlsе МsgВох ("Еrrоr")  / фамилия и пароль для входа
Еnd Sub

Так вот нужно сделать так, чтобы вторая форма открывалась не только при удовлетворении условия, но и при успешной отправке данных с текстовых полей на мой е-mаil А если интернета нет писать "Авторизация не прошла", если есть - "Авторизация прошла успешно"

Решение задачи: «Отправка данных с текстового поля на e-mail»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub send_message()
Dim o_Mess As Object, v_Conf As String
Set o_Mess = CreateObject("CDO.Message")
v_Conf = "http://schemas.microsoft.com/cdo/configuration/"
With o_Mess
    .To = ""         'Кому отправить
    .From = ""       'От кого
    .Subject = ""    'Тема 
    .TextBody = ""   'Текст
    .AddAttachment "Путь до файла"  'Отправка файла
With .Configuration.Fields
    .Item(v_Conf & "sendusing") = 2
    .Item(v_Conf & "smtpserver") = "smtp.mail.ru"
    .Item(v_Conf & "smtpauthenticate") = 1
    .Item(v_Conf & "sendusername") = "" 'От кого
    .Item(v_Conf & "sendpassword") = "" 'Пароль от кого отправляется письмо
    .Item(v_Conf & "smtpserverport") = 25
    .Item(v_Conf & "smtpusessl") = False
    .Item(v_Conf & "smtpconnectiontimeout") = 60
    .Update
End With
    .send
End With
End Sub
 
Private Sub Command1_Click()
    Call send_message   ' запуск отправки письма
End Sub