Создать матрицу смежности для графа с последующим нахождением оптимальных путей алгоритмом Дейкстры - Visual Basic .NET

Формулировка задачи:

Привет программистам. Мне нужно создать матрицу смежности для графа с последующим нахождением оптимальных путей алгоритмом Дейкстры (так называемая транспортная задача). Все данные лежат в .txt файле в виде: *исходящая вершина* пробел *входящая вершина* пробел *стоимость* ентер (без звездочек). Пока что имею вот такой код:

                    Листинг программы
                
 
                        
                          
                    
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim edgesline As String
        Dim matrix(9, 9) As Integer
        Dim iz, v, cena, pol1, pol2, pol3 As Integer
        FileOpen(1, "C:\Users\Алексей\Desktop\edges.txt", OpenMode.Input, OpenAccess.Default)
        While Not EOF(1)
            edgesline = LineInput(1)
            ListBox1.Items.Add(edgesline)
        End While
        pol1 = 1
        pol2 = 3
        pol3 = 5
        While Not EOF(1)
            Seek(1, pol1)
            Input(1, iz)
            Seek(1, pol2)
            Input(1, v)
            Seek(1, pol3)
            Input(1, cena)
            matrix(iz, v) = cena
            ListBox2.Items.Add(matrix(iz, v))
            pol1 = pol1 + 6
            pol2 = pol2 + 6
            pol3 = pol3 + 6
        End While
        FileClose(1)
    End Sub

Как я понял программа упорно пытается присвоить целочисленной переменной значение пустой строки. Подскажите пожалуйста, как это можно исправить? И что делать если нужно считать 2-значное число, ведь метод Seek считывает только 1 символ? Заранее спасибо за ответы P.S. не кидайтесь помидорами, знаю что криво, я только учусь)

Решение задачи: «Создать матрицу смежности для графа с последующим нахождением оптимальных путей алгоритмом Дейкстры»

textual
                            Листинг программы 
                        
Dim ff = Function(xx As String) CInt(xx)
'...
Dim rr() As Integer = s.Split(" "c).Select(ff).ToArray