Private Sub Application_Reminder(ByVal Item As Object)
    If TypeOf Item Is AppointmentItem Then
        MsgBox "This is a friendly reminder about upcoming meeting!", vbSystemModal, "Attention!"
    End If
End Sub