打开外部程序的问题

我想在vb里面打开word，但怎么也打不开，请问是什么问题啊？
Option ExplicitPrivate Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As LongDim path As String
Dim i As Long
path = App.path & "\report\" & File1.Filenamei = WinExec(path, 9)
If i > 32 Then
    MsgBox (" run correct ")
  Else
    MsgBox ("run error")
End If