Read/Export table from Outlook mail body to Excel using VBA

Hi all,
I would seek solution or ways to export table in outlook 2010 message body with the whole table arrange in a table format in excel excatly as the way the emails shows.
Right now for my current situation is that i manage to export the whole message body over to excel however is that i have this problem that in one cell ( like in cell A1) containing one whole text , values , numbers and dates.

A1
asdasd
6-Apr-12
4-May-12
6-May-12
23
22222
88%
99.68%
22.85%
9.9999
all the exported text is in warp text format (as above). And if i unwarp it , it will form into a long string of words without spacing (like xxxxxxx22-323xxxxxx-asdfas99.68%22.85%) is it possible to shift each line ( as above ) into a table format.
Bascially what i am trying to do is extracting the email in outlook with a table containing data and export the data from the table into specifc cells on an excel worksheet into a similar table format as the email.
Currently i'm using below code.

[VBA]
Const xlUp As Long = -4162
Sub ExportToExcel(MyMail As MailItem)
Dim strID As String, olNS As Outlook.NameSpace
Dim olMail As Outlook.MailItem
Dim strFileName As String
Dim MyAr() As String

'~~> Excel Variables
Dim oXLApp As Object, oXLwb As Object, oXLws As Object
Dim lRow As Long
strID = MyMail.EntryID
Set olNS = Application.GetNamespace("MAPI")
Set olMail = olNS.GetItemFromID(strID)
'~~> Establish an EXCEL application object
On Error Resume Next
Set oXLApp = GetObject(, "Excel.Application")
'~~> If not found then create new instance
If Err.Number <> 0 Then
Set oXLApp = CreateObject("Excel.Application")
End If
Err.Clear
On Error GoTo 0
'~~> Show Excel
oXLApp.Visible = True
'~~> Open the relevant file
Set oXLwb = oXLApp.Workbooks.Open("C:\Sample.xlsx")
'~~> Set the relevant output sheet. Change as applicable
Set oXLws = oXLwb.Sheets("Sheet1")
lRow = oXLws.Range("A" & oXLApp.rows.Count).End(xlUp).Row + 1
'~~> Write to outlook
With oXLws
'
'~~> Code here to output data from email to Excel File
'~~> For example
'
.Range("B" & lRow).Value = olMail.Body
End With


'~~> Close and Clean up Excel

oXLwb.Close (True)
oXLApp.Quit

Set oXLws = Nothing
Set oXLwb = Nothing
Set oXLApp = Nothing
Set olMail = Nothing
Set olNS = Nothing
End Sub
[/VBA]

Thanks and all your helpp will me much appreciated.