Sono riuscito a inviare una mail, però la cosa strana e che non riesco ad inviare correttamente gli allgati.
Mi spiego meglio, se faccio in questo modo:

Cmail.Attachments.Add(New MailAttachment(Server.mapPath("prova.txt")))
a trova il file nella directory corrente,la mail la invia

Mantre se faccio così prendendo il file da un inputBox Non va:
La inputbox corrisponde a c:\prova\prova.txt

Dim NomeFile As String = File1.PostedFile.FileName

Dim pos As Integer
Dim Cmail As New MailMessage()

pos = CInt(NomeFile.LastIndexOf("\"))

NomeFile = NomeFile.Substring(pos + 1)
Try
Cmail.From = TxtFrom.Text
Cmail.To = TxtTo.Text
Cmail.Subject = TxtOggetto.Text
Cmail.Attachments.Add(New MailAttachment(NomeFile))
Cmail.Body = TxtMessaggio.Text
SmtpMail.SmtpServer = "mail.globcons.com"
SmtpMail.Send(Cmail)

Catch ex As Exception
Label5.Text = "Errore"
End Try