Help with macro to insert date at the end of oulook contact body

[Witzker]

I have found a macro that Inserts date at the top of the body

Insert date at the top of the body

Public Sub AddNoteTop()
    Dim DefaultMsg$ 
    DefaultMsg = "" 
    AddNote_Ex Application.ActiveInspector, DefaultMsg
End Sub

Private Sub AddNote_Ex(Inspector As Outlook.Inspector, Optional Msg As String)
    Dim WdSel As Word.Selection
    Dim p&
    Msg = Format(Date, "mm/dd/yyyy", vbUseSystemDayOfWeek, vbUseSystem) & ": " & Msg
    Msg = vbCrLf & "---" & vbCrLf & Msg
    Set WdSel = GetCurrentWordSelection(Inspector)
    p = Len(Msg) - 2
    WdSel.Start = 0
    WdSel.End = 0
    WdSel.InsertBefore Msg
    WdSel.Start = WdSel.Start + p
    WdSel.End = WdSel.Start
End Sub

Private Function GetCurrentWordSelection(OpenInspector As Outlook.Inspector) As Word.Selection
    Dim Doc As Word.Document
    Dim Wd As Word.Application 
    Set Doc = OpenInspector.WordEditor
    Set Wd = Doc.Application
    Set GetCurrentWordSelection = Wd.Selection
End Function

Can you Pls?
Be so kind and tell me how to insert the text at the end of the body of a Contact Item in Outlook 2019
And if possible in green
THX in advance