Public Function GetData(ByVal filename As String) As DataTable
 
        Dim dt As New DataTable
 
        dt.Columns.Add("SP1", GetType(Integer))
        dt.Columns.Add("SP2", GetType(Integer))
 
        Dim lines() As String = IO.File.ReadAllLines(filename)
 
        Dim startline% = -1, endline% = -1
        For i As Integer = 0 To lines.Count - 1
            If lines(i).ToUpper.StartsWith("[GEAR_RATIOS]") Then startline = i _
              + 1
            If lines(i).ToUpper.StartsWith("[FINAL_DRIVE]") Then endline = i - 1
        Next i
        If startline = -1 Or endline = -1 Then Return Nothing
 
        Dim s, e As Integer
        For i As Integer = startline To endline
            If lines(i).StartsWith("ratio") Then
                s = lines(i).IndexOf("(")
                e = lines(i).IndexOf(")")
                If s >= 0 And e >= s + 3 Then
                    Dim numbers As String = lines(i).Substring(s + 1, e - s - 1)
                    Dim nums() As String = numbers.Split(","c)
                    If nums.Length = 2 Then
                        dt.Rows.Add(CInt(nums(0)), CInt(nums(1)))
                    End If
                End If
            End If
        Next i
 
        Return dt
 End Function