How to make Outlook Calendar reminders stay on top

In word Alt F11
expand Microsoft outlook objects Double click This outlook session and add
 

Private Sub Application_Reminder(ByVal Item As Object)

If TypeOf Item Is AppointmentItem Then

MsgBox "Reminder about upcoming meeting!", vbSystemModal, "Attention!"

End If

End Sub