Dim NombreFichero,NombreCarpeta As String
Dim Intent1 As Intent
NombreCarpeta = File.DirRootExternal ' el nombre de la carpeta
NombreFichero = "hola.xls" ' el nombre de tu archivo
Try
Intent1.Initialize(Intent1.ACTION_VIEW, "file://" & File.Combine(NombreCarpeta, NombreFichero))
Intent1.SetType("text/")
StartActivity(Intent1)
Catch
ToastMessageShow("Error al visualizar fichero", True)
End Try