Как вывести текст (сообщение, комментарий) в строке состояния — Basic(Бейсик)

Application.StatusBar = "Вирус запущен"
Application.Caption = "В Багдаде всё спокойно"
ActiveWindow.Caption = ""
Для того, чтобы восстановить исходные значения, необходимо:


Application.StatusBar = False
iWorkbookName = ActiveWindow.Caption
 
'Здесь изменение в строке заголовка

Application.Caption = Empty
ActiveWindow.Caption = iWorkbookName ' (a).

Application.Caption = Empty
ActiveWindow.Caption = ThisWorkbook.Name 'ActiveWorkbook.Name ' (б).
Если существует вероятность, что строка состояния скрыта, то:


With Application
     .DisplayStatusBar = True
     .StatusBar = "Строка состояния"
End With