Private objXml As New DOMDocument60 Private xmlRoot As IXMLDOMElement Public Function xmlNode() Set objXml = New DOMDocument objXml.async = False objXml.Load ("E:\Li ......
function multi(a as integer,b as integer,optional third) dim n as integer n = a * b if not ismissing (third) then n = n * thid end if multi = n end fu ......