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

prova cosi