运行脚本时错误提示'expecting a parameter name'

wolfdlvvv

部分代码如下所示，当运行到标红一行就显示了如题所示的错误提示'expecting a parameter name'，不晓得问题出在哪里，新手套用模板编程，
之前都没问题，修改了路径，文件名，就出错了，急求大神指导！

Sub Main
'Declare the variable that will reference the application
Dim SurferApp As Surfer.Application
Set SurferApp = CreateObject("Surfer.Application")
    SurferApp.Visible = True
'path
dirPath = "E:\IWP\DATA\Drought Predicting\Correlation Analysis\Predictors 2014\Element field ana\"
OutGrid = "E:\IWP\DATA\Drought Predicting\Correlation Analysis\Predictors 2014\Element field ana\surfer\For sst\"
Dim ID As String
Dim Infile As String
ID = "0.05coe-spi_sst_SUM-h-y"  '修改
IDout ="0.05coe-spi_sst_SUM-h-y-SUM1"  '修改
Infile = dirPath+ID+".txt" '+ CStr(k)
'creat grid file with text file
SurferApp.GridData(DataFile:=Infile,_
  xCol:=1, yCol:=2,zCol:=3,_'修改
  NumCols:= 1000, NumRows:= 460, Algorithm:=srfKriging, _
  ShowReport:=False, SearchEnable:=True, _
  xMin:=0,xMax:=358,yMin:=-76,yMax:=88, _
  OutGrid:= OutGrid +  IDout +".grd", OutFmt:=srfGridFmtS7)

智文

非常感谢楼主

wolfdlvvv

愚人自答：文件名IDout ="0.05coe-spi_sst_SUM-h-y-SUM1"  '修改  中，变量IDout忘了定义了，问题已解决

coco4046

来学习一下！