Error 453 - Can't find DLL entry point in kernel32

Would someone please help me with this:

I tried to use a simple API GetCurrentDirectory (after used API viewer to copy it to my module),
and run the program with only a call to that function, it failed with error 453, "Failed to find a DLL entry point in kernel32" .
How to solve this ?
Thanks.

use VB's builtin CurDir function.

...or use the CORRECT declare statement
Private Declare Function GetCurrentDirectory Lib "kernel32" Alias "GetCurrentDirectoryA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

the APIViewer declare is wrong! Alias is incorrect