if file is open - try again, wait, try again

if file is open - try again, wait, try again

i have the below

If IsFileOpen("S:\TLC Report.xlsx") Then
    MsgBox "Relevant file in use - Please try again.", vbOKOnly + vbInformation, ""
    Exit Sub
    Else
End If

Could anyone advise how to amend this so instead of exiting the sub

it will

wait 5 seconds, try again
wait 5 seconds, try again

then after them 3 attemps, if its still open, to exit sub


thanks in advance