How do you make code wait for an amount of time?

How do you make code wait for an amount of time?

For example

Code:

---

? WASSUPPP
wait for 5 seconds
? Yo man waaasup

---

messy but its how I do it

dim t as string

t=timer
do until val(t)+5 < timer
loop

Add this code to a module:

Code:

---

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

---

Then just use this where you need it:

Code:

---

Sleep 5000 ' Sleep for 5 seconds

---