起動時の設定の「アプリケーション タイトル」を取得する方法

Access ADPで「起動時の設定」に入力した「アプリケーション タイトル」を取得する方法です。
一度も入力していない場合はエラーになる可能性があります。
‘ 起動時の設定の「アプリケーション タイトル」を取得する。
Private Function GetAppTitle() As String
GetAppTitle = CurrentProject.Properties(“AppTitle”)
Exit Function
Err_GetAppTitle:
GetAppTitle = “Microsoft Access”
End Function