Sub Application_Startup() Dim myNoteItem As NoteItem Set myNoteItem = Application.CreateItem(ItemType:=olNoteItem) myNoteItem.Body = "Please start a new time card for the day." myNoteItem.Display End Sub