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