Function Mi_Msgbox(Mensaje As String)
 'Asumimos que el formulario que va a recoger los avisos
 'se llama FrmAviso y que consta de una campo de texto independiente multilenea
 'llamado TxtAviso
 
 'Primero vemos si está cargado o no el Formulario, ya que esta rutina puede
 'ser llamada con el formulario abierto o ser llamada por primera vez
 If CurrentProject.AllForms("FrmAviso").IsLoaded = False Then
  'es la primera llamada
  DoCmd.OpenForm "FrmAviso"
  Form_FrmAviso.TxtAviso = Mensaje & vbCrLf
  Exit Function
 End If
 'aqui el formulario ya esta abierto....pues añadimos una nueva
 'linea de aviso:
 Form_FrmAviso.TxtAviso = Form_FrmAviso.TxtAviso & Mensaje & vbCrLf
End Function


la llamada a esta funcion, lo harías de una forma muy simple desde cualquier
parte de tu programa y las veces que creas oportunas:

Mi_Msgbox("Este es el mensaje que quiero escribir....")

El resultado sería el mencionado por E. Feijoo