Oi David,
Sou eu novamente. Estava procurando por outra API e encontrei esta para você:
Private Declare Function GetFullPathName Lib "kernel32" Alias "GetFullPathNameA" (ByVal lpFileName As String, ByVal nBufferLength As Long, ByVal lpBuffer As String, ByVal lpFilePart As String) As Long
Private Sub Form_Load()
Dim Buffer As String, Ret As Long
Buffer = Space(255)
Ret = GetFullPathName("seuarquivo.exe", 255, Buffer, "")
Buffer = Left(Buffer, Ret)
MsgBox Buffer
End Sub
Faça suas adaptações.
Susana
