Al mandar mail tira error Prompt

[damid3]

Hola gente hace mucho q no posteo pero tengo un problem q me esta volviendo loco XD

hace rato q estoy tratando de mandar un mail pero me da

"el argumento prompt no puede ser tipo string"

pero no encuentro el porque

mi codigo :

Código vb:

Dim Message As New System.Net.Mail.MailMessage()
        Dim SMTP As New System.Net.Mail.SmtpClient
        Message.From = New System.Net.Mail.MailAddress("[email protected]", "Server", System.Text.Encoding.UTF8) 'Quien envía el e-mail
        SMTP.Host = "smtp.gmail.com"
        SMTP.Port = 587
        SMTP.EnableSsl = True
        SMTP.UseDefaultCredentials = False
        Message.[To].Add("[email protected]")
        SMTP.Credentials = New System.Net.NetworkCredential("[email protected]", "xxxxxxxx")
        Message.Subject = "Back Up" 'Motivo o Asunto del e-mail
        Message.SubjectEncoding = System.Text.Encoding.UTF8 'Codificacion
        Message.Body = "BU"
        Message.Priority = System.Net.Mail.MailPriority.Normal
        Message.IsBodyHtml = True
        Dim adjuntar As New Net.Mail.Attachment("C:\bu_" & Replace(Today, "/", "_") & ".zip")
        Message.Attachments.Add(adjuntar)
        'ENVIO
        Try
            Cargar_Mail_Espere.Show()
            SMTP.Send(Message)
        Catch ex As System.Net.Mail.SmtpException
            Cargar_Mail_Espere.Close()
            MsgBox(ex)
        End Try
 

si alguno tiene algun consejo es bienvenido !!! Saludos !