Show Msgbox 3 seconds before macro starts running and close that msgbox automatically in 3 seconds

Question

I have following macro as time based run

Application.OnTime TimeValue("12:2:20"), "ADPATEL"

what I want is to popup msg b