Как открыть файл.

' Декларация функции для запуска файла. 
Public Declare Function ShellExecute Lib "shell32.dll" Alias _ 
                        "ShellExecuteA" (ByVal hwnd As Long, _ 
                         ByVal lpOperation As String, _ 
                         ByVal lpFile As String, _ 
                         ByVal lpParameters As String, _ 
                         ByVal lpDirectory As String, _ 
                         ByVal nShowCmd As Long) As Long 
 
' Декларация константы для максимизирования окна открываемого приложения. 
' Для работы с другими константами смотрите MSDN. 
Public Const SW_SHOWMAXIMIZED = 3 
 
'После этого нижеследующий код будет открывать файл test.xls. 
 
Call ShellExecute(0, "open", "test.xls","", "", SW_SHOWMAXIMIZED)

Sub m_1()
Dim vПутьКПапке As String
vПутьКПапке = "E:\_Рабочий стол"
Documents.Open vПутьКПапке & "\" & TextBox1.Text
End Sub