Visual Basic - que hace este codigo ?

Hola alguien me podria explicar como funciona esta rutina de demora ?
Public Sub FPDelay()
'
' Delay Sequence
'
Dim Start1 As Single
Start1 = Timer
Do While Me.EpsonFP.State = EFP_S_Busy ' Esta linea es para leer una propiedad de la impresora fiscal...
Do While Timer < Start1 + 0.125 ' Timer delay
DoEvents
If Start1 > Timer Then ' This is to
Exit Do ' compensate for the
End If ' AM to PM change
Loop
Loop '
End Sub

Public Sub FPDelay()
'
' Delay Sequence
'
Dim Start1 As Single
Start1 = Timer
Do While Me.EpsonFP.State = EFP_S_Busy ' Esta linea es para leer una propiedad de la impresora fiscal...
Do While Timer < Start1 + 0.125 ' Timer delay
DoEvents
If Start1 > Timer Then ' This is to
Exit Do ' compensate for the
End If ' AM to PM change
Loop
Loop '
End Sub

*variable start1 de tipo single
*metemos en la variable start1 el contenido del timer(contador de la demora)
*leemos la propiedad de la impresora fiscal
*mientras el contador es menor al valor del contador mas 0.25 milesimas esta la pausa
*Doevents
*si la variable start1 es mayor al contenido del timer entonces lo que se haya de hacer
*salimos del do
*terminamos el if
*cerramos el Do
*cerramos el otro do