导入配置的问题？？

myfreemind

运行程序自动导入需要的配置，但导入成功以后，ACAD并没有返回到命令行状态，而是在命令行产生一空白行，就象是程序挂起一样，这是怎么回事？

下面是代码：
sub input()
Dim acadpref As AcadPreferences
Set acadpref = ThisDrawing.Application.Preferences

acadpref.Profiles.ActiveProfile = "acad2002"

acadpref.Profiles.DeleteProfile "acad"
acadpref.Profiles.ImportProfile "acad", "acad.arg", True
acadpref.Profiles.ActiveProfile = "acad"
end sub