Statusbar

Hello,
How can I be able to change statusbar caption in the run time. For instance, the first panel is "Ready..." but when the application is loading data, I want the "Ready..." to change "Loading data, Please wait..." then when the data is loaded, the caption will become again "Ready..."

Code:

        Dim Pane As StatusBarPane
   
        Set StatusBar = CommandBars.StatusBar
   
        StatusBar.Visible = True
   
        Set Pane = StatusBar.AddPane(ID_BAR)
        Pane.Style = SBPS_STRETCH Or SBPS_NOBORDERS
        Pane.BeginGroup = True
        Pane.Text = "Ready..."

   
        StatusBar.AddPane ID_INDICATOR_CAPS
        StatusBar.AddPane ID_INDICATOR_NUM
        StatusBar.AddPane ID_INDICATOR_SCRL