run input box if i do not push OK but after time

how can i run the sub if do not push the OK button in the inputbox in the next 15 sec

...
datainput = Format(Date, "ddd dd/mm/yy")
    datadatiborsaitalia = InputBox("scrivi la data dell'aggiornamento nel formato" & vbCrLf & _
     "ddd dd/mm/yy", "INSERIRE LA DATA", datainput)
...