求助：在vba中调用api,我要得到当前目录，用以下语句出错，非常奇怪

maowenhui

Declare Function GetCurrentDirectory lib "kernel32" (byval nBufferlength as long,byval lpbuffer as string) as long
dim aa as string
dim bb as long
bb=GetCurrentDirectory(144,aa)
msgbox(aa)

程序出错，说找不到GetCurrentDirectory入口。我的函数声明是直接用api管理器拷贝的。我试验过其他的api函数，完全可以用，就只GetCurrentDirectory函数出错。请高手指教

肖宏海

maowenhui