想问一个vb问题，请大家赐教！谢谢

Dim FilePath As String
FilePath = 文本文档路径 + 文件名.txt
Shell "NOTEPAD.EXE " + FilePath

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 Const SW_SHOW = 5

dim l as long

l = ShellExecute(Me.hwnd, "Open", 文本文件路径, 0, 文本文件目录, SW_SHOW)

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 Const SW_SHOW = 5

dim l as long

l = ShellExecute(Me.hwnd, "Open", 文本文件路径, 0, 文本文件目录, SW_SHOW)

那你是用write写了一个文本文件，他不可能打不开，首先你检查下你的程序是否有问题．其格式如下：
ope