Wait Function

any way that i can make my application wait for some time so that HTML page loads in that time, right now I am using following code,

=================================
Public Sub waitBySecs(ByVal nNumSecs As Integer)
Dim d1, d2 As DateTime

d1 = DateTime.Now.AddSeconds(nNumSecs)
d2 = DateTime.Now

While DateTime.Compare(d2, d1) < 0
Application.DoEvents()
d2 = DateTime.Now
End While
End Sub
====================================

but the problem in this function is that it takes the whole CPU usage, so I am looking for an alternative for it.