Please help me format my email!

Well I guess they say third times a charm so this is the third time Ive posted here and maybe someone will reply..
OK First off two things you should know:
1) This is my first ever .NET Website. Ever.
2) I'm using Visual Studio .NET 2003 with SQL Server 2000 deveoped under Windows 2000. The site is hosted under Windows Server 2003 so therefore I cannot test the email functionality in my dev environment because it does not support the email method that 2003 Server does...

Any way, I have a page where users send me an Email which contains data taken from their profiles. When I get it, it looks like this:

Web Part Request: Thursday, December 11, 2003 - 7:53:06 AM 1986 Mercedes-Benz 300E Engine: 6 Tran: A Turbo: N A/C: Y Fourwheel: 2 -------------------- I sent disc brakes back friday the 5th through u.s.p.s. for exchange for correct size .I also need timing chain tensioner,I have a timing chain and link and a gasket.

How can I format the email so its not so confusing? I need it to look like this:

Web Part Request: Thursday, December 11, 2003 - 7:53:06 AM
1986 Mercedes-Benz 300E
Engine: 6
Tran: A
Turbo: N
A/C: Y
Fourwheel: 2
--------------------
I sent disc brakes back friday the 5th through u.s.p.s. for exchange for correct size .I also need timing chain tensioner,I have a timing chain and link and a gasket.

Thanks a lot for your time!
Regards,
Joe

Here is the snippet of code for the page and in case you're wondering, I didnt write this part (hence the reason Im asking for help, a coworker who is no longer here set up the basics):

 If Not IsPostBack Then
 Dim sessionmember As diyauto.diymember.diymemberdetail = New diyauto.diymember.diymemberdetail
 sessionmember = Session("userinfo")
 If sessionmember Is Nothing Then
 Session("loginreturnpage") = "/partfinder/partrequest.aspx"
 Response.Redirect(ConfigurationSettings.AppSettings("SiteHomePage") + "/member/loginagain.aspx")
 End If
 ' show the user name
 lblName.Text = Trim(sessionmember.firstname) & " " & (Trim(sessionmember.middlename) & " ") & Trim(sessionmember.lastname)
 Dim carid As Integer
 carid = Val(Request.QueryString.Get("c"))
 If carid = 0 Then
 Response.Redirect("partlocator.aspx")
 End If
 Dim carfunct As diymember.diymembercarfunctions = New diymember.diymembercarfunctions
 Dim mycar As diymember.diymembercardetail = New diymember.diymembercardetail
 mycar = carfunct.carinfoget(sessionmember.memberid, carid)
 'if there is nothing here - send them back!
 'Response.Redirect("partlocator.aspx")
 If mycar Is Nothing Then
 Response.Redirect("partlocator.aspx")
 End If
 lblCarInfo.Text = mycar.year.ToString + " - " + RTrim(mycar.makename) + " " + RTrim(mycar.modelname) + " Engine: " + mycar.engine + " Tran: " + mycar.autotransmission + " Turbo: " + mycar.turbo + " A/C: " + mycar.aircondit + " Fourwheel: " + mycar.fourwheel + " VIN: " + RTrim(mycar.vin)
 hidlabCarInfo.Text = mycar.year.ToString + " " + RTrim(mycar.makename) + " " + RTrim(mycar.modelname) + vbCr + "Engine: " + mycar.engine + vbCr + "Tran: " + mycar.autotransmission + vbCr + "Turbo: " + mycar.turbo + vbCr + "A/C: " + mycar.aircondit + vbCr + "Fourwheel: " + mycar.fourwheel + vbCr + "VIN: " + RTrim(mycar.vin)
 End If
 End Sub
 Private Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
 If Len(LTrim(RTrim(tbxRequest.Text))) = 0 Then
 lblError.Text = "Please indicate the parts you're Looking for!"
 Return
 End If
 Dim sessionmember As diyauto.diymember.diymemberdetail = New diyauto.diymember.diymemberdetail
 sessionmember = Session("userinfo")
 If sessionmember Is Nothing Then
 Session("loginreturnpage") = "/member/myaccount.aspx"
 Response.Redirect(ConfigurationSettings.AppSettings("SiteHomePage") + "/member/loginagain.aspx")
 End If
 ' lets prepare an e-mail and send it along to the parts folks!
 Dim Maildiy As New System.Web.Mail.MailMessage
 Maildiy.From = RTrim(sessionmember.email)
 Maildiy.To = "joe@dotnet.itags.org.diyautoparts.com"
 Maildiy.Subject = "WEBSITE PARTS REQUEST"
 Maildiy.BodyFormat = Mail.MailFormat.Text
 Maildiy.Body = "Web Part Request: " + DateTime.Now.ToLongDateString + " - " + DateTime.Now.ToLongTimeString + vbCr + vbCr + hidlabCarInfo.Text + vbCr + vbCr + "--------------------" + vbCr + vbCr + RTrim(tbxRequest.Text)
 System.Web.Mail.SmtpMail.Send(Maildiy)
 Maildiy = Nothing
 ' send an e-mail to the sender!
 Dim MailCust As New System.Web.Mail.MailMessage
 Dim replytext As String
 MailCust.From = "parts@dotnet.itags.org.diyautoparts.com"
 MailCust.To = RTrim(sessionmember.email)
 MailCust.Subject = "DIYAUTOPARTS.COM - Part Request from Website"
 'replytext = "Thank you for requesting car part information from DiyAutoparts.com. Your request has been entered into our system and we will contact you as soon as we have information for you." + vbCr + vbCr + "Our office hours are Monday - Friday 8:00am - 4:30pm EST." + vbCr + vbCr
 'replytext += "Web Request time: " + DateTime.Now.ToLongDateString + " - " + DateTime.Now.ToLongTimeString + vbCr + vbCr
 'replytext += hidlabCarInfo.Text + vbCr + vbCr + "------------------" + vbCr + vbCr + RTrim(tbxRequest.Text) + vbCr
 MailCust.BodyFormat = Mail.MailFormat.Text
 MailCust.Body = "Thank you for requesting car part information from DiyAutoparts.com. Your request has been entered into our system and we will contact you as soon as we have information for you." + vbCr + vbCr + "Our office hours are Monday - Friday 8:00am - 4:30pm EST." + vbCr + vbCr
 MailCust.Body += "Web Request time: " + DateTime.Now.ToLongDateString + " - " + DateTime.Now.ToLongTimeString + vbCr + vbCr
 MailCust.Body += hidlabCarInfo.Text + vbCr + vbCr + "------------------" + vbCr + vbCr + RTrim(tbxRequest.Text) + vbCr
 'MailCust.Body = replytext
 System.Web.Mail.SmtpMail.Send(MailCust)
 MailCust = Nothing
 Response.Redirect("partlocatorsub.aspx")
 End Sub
 Private Sub btnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuit.Click
 Response.Redirect("partlocator.aspx")
 End Sub
 Private Sub btnMyAcct_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMyAcct.Click
 Response.Redirect(ConfigurationSettings.AppSettings("SiteHomePage") + "/member/myaccount.aspx")
 End Sub
End Class

How about just adding some vbCrLf characters in there where you want the line breaks?