usa la api Sleep
Código [Seleccionar]
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Load()
MsgBox "1"
Sleep 5000 '5 Segundos
DoEvents
MsgBox "2"
End Sub