StatusBar property example

The following example demonstrates how to return the text displayed in the status bar.

Private Sub CommandButton21_Click()

     Dim myStatus As String

     myStatus = Application.StatusBar

     MsgBox ("Status Bar is: " & myStatus)

End Sub