Ciao
Io di giro questa soluzione che ho trovato nella guida in linea e sembrerebbe funzionare
Dim myDocumentsPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
Dim myProcess As New Process
myProcess.StartInfo.FileName = myDocumentsPath + "\Lista.xls"
myProcess.StartInfo.Verb = "Open"
myProcess.StartInfo.CreateNoWindow = True
myProcess.Start()
Ciao