LibreOfficeのCalcでドキュメントの表示名ではないTitleを取得する

Dim title As String
Dim args As Object
args = ThisComponent.getArgs()
For i = 0 To Ubound(args)
    If args(i).Name = "Title" Then
        title = args(i).Value
        Exit For
    End if
Next i
MsgBox(title)