Date Stamp in Contacts Notes field tweaking

[soxfan]

I have used the following code for setting up a date stamp button:

Sub StampDate()
Item.Body = Now() & vbCrLf & vbCrLf & Item.Body
End Sub

Sub CommandButton1_Click()
Call StampDate()
End Sub


I'd like for the date stamp line to look something like this:

--------11/11/2003 12:50pm------------------------------------

That way it breaks up the notes very nicely and much easier to scan through
a long list of notes. How would I tweak the code to add that format?

Thanks,
Tom