Tramite la funzione App.Path naturalmente.

codice:
Dim Percorso As String
Percorso = App.Path
ciao