如何把这段语句写成vb.net 的function函数？判断strType的有效值

strType=oXmlSJSZ.getXMLNodeAtt("","//row[@数据项名称='收货单编号']",0,"数据源类型",false)

        strFldName=oXmlSJSZ.getXMLNodeAtt("","//row[@数据项名称='收货单编号']",0,"数据源字段",false)