Saludos, bueno si entendi bien tu pregunta, puedes usar la api GetCurrentDirectory, te pongo un codigo de ejemplo.
Private Declare Function GetCurrentDirectory Lib "kernel32" Alias "GetCurrentDirectoryA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Sub Form_Paint()
Dim sSave As String
'Creas la variable que va a contener la direcion
sSave = String(255, 0)
'devuelve el directorio actual del exe
GetCurrentDirectory 255, sSave
MsgBox sSave
End Sub
Ejemplo Xtraido del Api Guide 3.7
Espero sea d ayuda.
Saludos