This is the function in the code section - which is different from the beginning article.

Function ReturnXML(ByVal MultiValueList As Object, ByVal Root As String, ByVal Node As String, ByVal Element As String) As String

'**************************************************************************

' Returns an XML string by using the specified values.

' Parameters:

' MultiValueList - a multi value list from SSRS

' Root, Node, Element - String to use in building the XML string

'**************************************************************************

Dim ReturnString = ""

Dim sParamItem As Object

ReturnString = " "

For Each sParamItem In MultiValueList

ReturnString &= " "

Next

ReturnString &= " "

Return (ReturnString)

End Function