Если тебе просто нужно открыть файл, можно воспользоваться следующим кодом. Файл автоматически откроется связанным с ним приложением. По крайней мере у меня это работает.

Private 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


Private Sub Сommand_Click()

ShellExecute Me.hwnd, vbNullString, "C:\documents and settings\администратор\рабочий стол\1.txt", vbNullString, "C:\", 1

End Sub