A tad more detail would help!
Assuming that you are displaying a userform as the splash screen then the following userform code will work.
Private Sub UserForm_Activate()
Dim PauseTime, Start
PauseTime = 3 ' Set duration.
Start = Timer ' Set start time.
Do While Timer < Start + PauseTime
DoEvents ' null events - just to keep screen active