Some time ago I did something similar (I think there was another video here that made the status function global that inspired me) and I added options to change which form it would send the text to. Most times I would have it go to the Main Menu, so that was the default, but other times I'd want it to go to a different form. There were also times I would either want the text added to the other text like normal or I would want the status box blank first before adding the text. Just another way to arrange the Legos and hopefully gives others ideas. :)

Details

Public Sub Status(S As String, Optional BlankOut As Boolean = False, Optional FormName As String = "MainMenuF", Optional ControlName As String = "StatusBox")
  
    If Not CurrentProject.AllForms(FormName).IsLoaded Then Exit Sub
    
    Dim C As Control
    
    Set C = Forms(FormName).Controls(ControlName)
    
    C.SetFocus
    
    If BlankOut Then C.Text = ""

    C.Text = S & vbNewLine & C.Text
    DoEvents
    
    Set C = Nothing

End Sub
Copy