---SOS---- somebody help me!

Question

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
Declare Function GetDesktopWindow Lib "user32" () As Long'文件调用函数
sub nRunFile(strFileName As String) 
  Dim Scr_hDC,nRunRet As Long
  Scr_hDC = GetDesktopWindow()
  
  nRunRet= ShellExecute(Scr_hDC, "Open", strFileName, "", "", 1)
  If nRunRet= 31 Or StartDoc = 2 Then MsgBox "无法打开指定文件!", vbOKOnly + vbExclamation
End subsub button1_click()
  dim strNamex as string  strNamex="c:\myFiles\filex1.txt"
  nRunRet strNamex
end sub

Answer 1

TXT文件的读取使用Binary模式比input模式少一些错误，下面是最简单的读取方法Open "TXT文件" For Binary As #1
Text1.Text = Input(LOF(1), 1)
Close 1