Public Sub Main()
sngStartTimer = Timer' Notes the current time in seconds
Do Until Timer - sngStartTimer >= 20
    Application.StatusBar = " . . . . . . . . . . . . . . . . . . " & _
    "Pausing for 20 Seconds: " & Str(Timer - sngStartTimer)
Loop
End Sub