Try this:
Dim s As String() = {"12,100", "10,250", "13,240"}
Dim result = s.Select(Function(x) x.Split(New String(){","}, StringSplitOptions.RemoveEmptyEntries)) _
.Select(Function(z) New With { _
.x = z(0), _
.y = z(1)})
For Each r In result
Console.WriteLine("x={0} | y={1}", r.x, r.y)
Next