Eu tenho os seguintes dois Sub definidos no meu Word Addin (.dotm) que eu coloquei no diretório StartUp

Public Sub SayHi1()
    MsgBox "Hi......."
End Sub

Public Sub SayHi2(ByVal n As String)
    MsgBox "Hi " & n
End Sub

Então, a partir de um novo documento, sou capaz de chamar 1st Sub sem argumento, como abaixo:

Sub AppRun_AddIn_NoArg()
    Application.Run "MyProject.Module1.SayHi1"
End Sub

Mas quando tento executar o segundo sub com argumento, recebo um erro dizendo "O objeto não suporta esta propriedade ou método"

Sub AppRun_AddIn_WithArg()
    Application.Run "MyProject.Module1.SayHi2", "Tejas"
End Sub

Mensagem de erro: