VB6 Hang or Pause for X Seconds

Private Sub Hang(sngSeconds As Single)
Dim sngTimeOut As Single
sngTimeOut = Timer + sngSeconds
DoEvents
Do Until Timer >= sngTimeOut
Loop
End Sub