Para DAM anunciar mediante un msgbox 15 días antes de su caducidad

Hola DAM

Tengo la siguiente macro que se ejecuta al abrir el archivo en excel.

Private Sub Workbook_Open()
If Date <= DateSerial(2015, 6, 30) Then Exit Sub
Application.EnableCancelKey = xlErrorHandler
On Error GoTo Ver_Error
licenciauso = InputBox("Introducir la Licencia de Uso de este Software")
If licenciauso <> "abcde" Then
MsgBox ("Licencia Incorrecta, vuelva a intentarlo")
licenciauso2 = InputBox("Introducir la Licencia de Uso de este Software")
If licenciauso2 <> "abcde" Then
MsgBox ("Licencia Incorrecta, última oportunidad de introducir la licencia")
licenciauso3 = InputBox("Introducir la Licencia de Uso de este Software")
If licenciauso3 <> "abcde" Then
Application.DisplayAlerts = False
ActiveWorkbook.Close
End If
End If
End If
GoTo fin
Ver_Error:
Application.DisplayAlerts = False
ActiveWorkbook.Close
Fin:
End Sub

Lo que quisiera adicionarle a esta macro y no se como hacerlo, es que desde el dia 15 antes de la fecha de vencimiento al dia 1 antes del vencimiento, anuncie mediante un msgbox los dias que le hacen falta para vencerse su licencia de uso. 

Algo así como que el día 15 de Junio de 2015 al abrir el archivo salga "Recuerde que faltan 15 días para que su licencia de uso expire. Favor realizar la gestión de la compra de la nueva licencia."

Así sucesivamente cada día hasta el día 29 de Junio de 2015.

El día 30 de Junio cuando se abra el archivo, ahí ya no diría los días que faltan por caducar la licencia sino que se ejecutaría la macro que tengo tal cual como esta.

Espero me halla hecho entender bien

Gracias