程序的调用路径问题

gdzhou

Sub tksc()
Dim fn As String
fn = ThisDrawing.Application.VBE.activevbproject.FileName
if fn<>"" then ThisDrawing.Utility.Prompt fn & vbCrLf
End sub

我在菜单中加了一个命令来直接调用，
-vbarun 500-2000tk.dvb!ThisDrawing.tksc

为什么在点第二次的时候才会把路径取得成功并显示出来呢？

如果先加载程序，再按Alt+F8运行就不会出现这种情况。

请高手帮忙给点建议怎么使用菜单调用的时候，第一次就可以把路径取得成功。。