Public Const gcstrAppTitle As String = "Attention"

  Public Function GetAppTitle() As String
    Dim strReturnValue As String

    On Error Resume Next

    ' If there is no value in the Application Title, Access will cause an error.
    ' Because there is a custom, default property in place, we can skip the error.
    '
    strReturnValue = CurrentDb.Properties("AppTitle")
    
    If strReturnValue = "" Then
      strReturnValue = gcstrAppTitle
    End If
    
    GetAppTitle = strReturnValue
  End Function

  Public Sub MsgBoxInfo( _
   ByVal strPrompt As String, _
   Optional ByVal strTitle As String)

    If strTitle <> "" Then
      MsgBox Prompt:=strPrompt, Buttons:=vbInformation, Title:=strTitle
    Else
      MsgBox Prompt:=strPrompt, Buttons:=vbInformation, Title:=GetAppTitle()
    End If
  End sub

  Public Sub Main()
  ' Run this to see the sample
    MsgBoxInfo "Hello World"
    MsgBoxInfo "Hello World", "My Title"
  End Sub