This ought a do. You can call this sub procedure from your main code
whenever you need it. Adjust the time  value to the amount  of wait  time
required.

Sub Wait()

Dim CurrentTime As Variant
CurrentTime = Time + TimeValue("0:00:02")
Application.Wait CurrentTime

End Sub