Scusami ho un'altra domandina

Facendo cosi, si presuppone che il file è sotto la stessa cartella mentre se io non conosco la sua Path come faccio a ricavarla??

codice:
Private Sub mnuinserimentoAgenzia_Click() 
Shell "programma.exe", vbNormalFocus 
End Sub