Escribir desde VBA en la barra de estado de Ms Access 2010

Esta funció permite cambiar el texto de la barra de estado en Access 2010.

Public Function setStatusBar(Optional text As String = "")
 If text = "" Then
   SysCmd acSysCmdClearStatus
 Else
   SysCmd acSysCmdSetStatus, text
 End If
End Function

Se invoca:

setStatusBar "Hola Mundo!"

para limpiar:

setStatusBar