


Dim timeOut As DateTime = Now.AddMilliseconds(2000)
Do
txtWords.Text = "haha"
Application.DoEvents()
'Keep looping until the elasped time of 2000 milliseconds.
Loop Until Now > timeOut
MsgBox("The code paused for: 2000 Milli-Seconds or 2 Seconds!")