would someone educate me about DoEvents ?

I am using DoEvents in the following function under the impression that When it waits for the time to elapse , let the OS do something else.
But my Supervisor has told me NEVER user DoEvents as it will help up resources.
I thought DoEvents is to release the resources.

could you please advise me on this ?

Code:
Public Sub Delay(NumberOfSeconds As Integer)
    Dim start As Single
    Dim Kounter As Integer
    On Error Resume Next
    start = Timer
    Kounter = 0
    
    Do While Timer < start + NumberOfSeconds
        DoEvents
    Loop
    
End Sub