<param>
<value><array><data>
<value><string>Ort</string></value>
<value><string>Maribor</string></value>
</data></array></value>
</param>

Dim name = From nm In xelement.Elements("param")
 
 
            Dim counter As Integer = 1
 
            For Each xEle As XElement In name
 
                MsgBox(xEle.Value)
 
                counter = counter + 1
 
            Next xEle