Webs = "Nombre :" & TxtNome.Text & vbLf & "Empresa : " & TxtEmpresa.Text & vbCrLf & TxtComentario.Text & TxtTelefono.Text & TxtEmail.Text
mail.Body = Webs
que puedo hacer
un saludo
claudio