How to email webpage/HTML page

Import System.Net.Mail

Public Sub EmailWebPage()
Dim myMail As New MailMessage()
myMail.From = New MailAddress("From Email Address")
myMail.To.Add("To Email Address")
myMail.Subject = "Email Subject"
Dim htmlPg As String = SendWebPage("http://servername/htmlpage.html")
myMail.Body = htmlPg
myMail.IsBodyHtml = True
Dim smtp As New SmtpClient(<SMTP SERVER>)
smtp.Send(myMail)
End Sub

Public Function SendWebPage(ByVal url As String) As String
Dim objRequest As WebRequest = System.Net.HttpWebRequest.Create(url)
Dim strmRder As New StreamReader(objRequest.GetResponse ().GetResponseStream())
Dim result As String = strmRderstrmRder.ReadToEnd()
strmRder.Close()
Return result
End Function

How to Send plain text Email

Import System.Net.Mail

Dim myMail As New MailMessage()
myMail.From = New MailAddress("From Email Address")
myMail.To.Add("To Email Address")
myMail.Subject = "Email Subject"
myMail.Body = "Email Body"

Dim mysmtp As New SmtpClient(<SMTP SERVER>)
mysmtp.Send(MyMail)

How to create XML file using VB.NET

Import System.XML

Dim xmldoc As New XmlDocument
Dim xmlElem As XmlElement
Dim xmlNde As XmlNode
Dim xmlTxt As XmlText
xmlNde = xmldoc.CreateNode(XmlNodeType.XmlDeclaration, "", "")
xmldoc.AppendChild(xmlNde)
xmlElem = xmldoc.CreateElement("", "DETAILS", "")
xmlTxt = xmldoc.CreateTextNode(String)
With xmlElem
    .AppendChild(xmlTxt)
End With
With xmldoc
    .AppendChild(xmlElem)
    .Save("C:\MyFolder\myXMLFile.xml")
End With