Unable to update Array/variables

Public Class data
 
        Public Property Name As String
        Public Property Subname As String
        Public Property Type As String
        Public Property parameter() As String
        Public Property Summary As String
 
    End Class

Public Function getdata(location As String) As IEnumerable(Of data)
 
        Dim doc = XDocument.Load(location)
 
        Dim newdata = From n In doc.<UserEx>.<CompletionList>.<member>
              Select New data With {
                  .Name = n.@name,
                  .Summary = n.<summary>.Value,
                  .Type = .Name.Substring(0, 1)
                  }
 
        Return newdata
    End Function

Dim newdata As IEnumerable(Of data) = getdata(location)
        Dim temp As Integer = 0
 
        For Each line In newdata
            temp = line.Summary.IndexOf("(")
            If temp > 0 Then
                line.Subname = line.Summary.Substring(0, temp)
                 'If I output it here "Console.Writeline(line.subname)" then it is right but if I output after the for loop it does not work :\
            End If
 
        Next