Что вам нужно сделать, это прочитать файл и разобрать текст на точки.
Чтобы прочитать файл построчно, вы можете использовать метод File.ReadLines .
Если у вас есть строка, вы можете разделить на символ разделителя и, если найдено правильное количество элементов, попытаться проанализировать отдельные части как целые числа.Если это сработало, вы можете добавить данные в Список (Of Point):
Function GetData(filename As String) As List(Of Point)
Dim pts As New List(Of Point)
Dim x As Integer
Dim y As Integer
For Each a In File.ReadLines(filename)
Dim parts = a.Split({","c}).Select(Function(p) p.Trim()).ToList()
If parts.Count = 2 Then
If Integer.TryParse(parts(0), x) AndAlso Integer.TryParse(parts(1), y) Then
pts.Add(New Point(x, y))
End If
End If
Next
Return pts
End Function