Label text not appearing during processing...

On my form, I have a link label that basically displays any time that was discovered in the user's Outlook calendar:
xx:yy of appointments found

On the days where there are none, the label simply doesn't appear.

I have all this processing occuring in a sub - and would like the user to know that when they change the date, that the calendar information is being queried, so in that routine, I make the link label visible, and change the text.  However, I never see that bit of information when I run the code.

What could be missing, or how can I get this 'please wait' text to display?
Here's a portion of the code in that routine:

Application.DoEvents()  'thought this would help...but it hasn't
 With lnkAppointments
   .Visible = True 'start out by making the label visible
   .Text = "Retrieving appointments ..." 'change the text to let the user know the appointments are being queried
 End With
 
'[Code to connect with Outlook and retrieve appointments...] 
 
  If ts.TotalMinutes = 0 Then ' if the timespan in minutes is 0, simply hide the link label
    lnkAppts.Visible = False
  Else
    With lnkAppts
      .Text = Format(ts.Hours, "#0") & ":" & Format(ts.Minutes, "00") & " found." ' if the timespan is not 0, then display the amount of time discovered.
  End With

Select allOpen in new window