Public Structure Messwerte
   Public X As Double
   Public Y As Double
   Public I As Double
   Public J As Double
 
   Public Sub New(ByVal x As Integer, ByVal y As Integer, ByVal i As Integer, _
     ByVal j As Integer)
      Me.X = x
      Me.Y = y
      Me.I = i
      Me.J = j
   End Sub
End Structure
Public Function ReadData(ByVal filename As String) As List(Of Messwerte)
   Dim ret As New List(Of Messwerte)
   Dim x, y, i, j As Double
   Using r As New StreamReader(filename)
      Do While r.Peek >= 0
         Dim line As String = r.ReadLine()
         Dim parts() As String = line.Split(" "c)
 
         For Each part As String In parts
            If part.StartsWith("X") Then
               x = Double.Parse(part.Substring(1))
            End If
            If part.StartsWith("Y") Then
               y = Double.Parse(part.Substring(1))
            End If
            If part.StartsWith("I") Then
               i = Double.Parse(part.Substring(1))
            End If
            If part.StartsWith("J") Then
               j = Double.Parse(part.Substring(1))
            End If
         Next
 
         ret.Add(New Messwerte(x, y, i, j))
      Loop
   End Using
 
   Return ret
End Function

Ralf