Code to put Date & Time at the bottom of a user Contact form in OL 2010

[Witzker]

Hi
I have this code to put Date & Time at the bottom of a user Contact form in OL 2010 and put the cursor there.
the code ist started with a button in the form (vba or vbscript?)

Sub Datum_Click()
    Item.Body = Item.Body & vbCrLf & Date() & " - " & FormatDateTime(Time,4) & ": "
    Set objWSHShell = CreateObject("WScript.Shell")
    objWSHShell.SendKeys("{TAB 11}")
    objWSHShell.SendKeys("^{End}")
    objWSHShell.SendKeys("^{backspace}")

It would be great if this line would appear in Red in the form.

Can You pls assist?