Copy and paste body of unread email from a specific folder to excel

I should actually make my request more clear. I receive about 5 emails a day that are automatically moved to a folder called "- Changes" in outlook. I would like to create a code that searches the unread emails in this folder and have the body of the email placed into column B on a sheet called "Changes". The format of the emails is always the same. It is always a line of text, double space, another line of text. I would like each line of text to be on their own row rather than the entire body placed in one cell. Attached shows an example of what I am looking for.

I was able to find a code that works. Marking the thread as solved.

Sub EmailText()
    Dim ObjOutlook As Object
    Dim MyNamespace As Object
    Dim i As Integer
    Dim j As Long
    Dim abody() As String
     
    Set ObjOutlook = GetObject(, "Outlook.Application")
    Set MyNamespace = ObjOutlook.GetNamespace("MAPI")
    
    With MyNamespace.GetDefaultFolder(6).Folders("- Changes")
    
        For i = .Items.Count To 1 Step -1
            abody = Split(.Items(i).Body, Chr(13) & Chr(10))
            For j = 0 To UBound(abody)
                Sheet1.Cells(65000, "C").End(xlUp).Offset(1, 0).Value = abody(j)
            Next
            .Items(i).Move MyNamespace.GetDefaultFolder(6).Folders("- Completed Changes")
        Next
        
        With Columns("C").Font
            .Name = "Arial"
            .Size = 11
        End With
        
    End With
    
    Set ObjOutlook = Nothing
    Set MyNamespace = Nothing
    
End Sub