如何取得当前运行程序的路径

1、如何取得当前运行程序的路径？
2、我的代码是这样的，但有问题：
Public Declare Function GetCurrentDirectoryA Lib "kernel32" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long Public