Dim sr As StreamReader = New StreamReader(dlgFile.FileName)
        Do While sr.Peek >= 0
            Dim sLine As String = sr.ReadLine()
            If sLine.Length > 0 Then
                If sLine.Contains("ratio") Then
                    Dim t As String = sLine.Substring(sLine.LastIndexOf("=") + _
                      1).Replace("(", "") '.Replace(")", "") 
                    Dim SplitString As String()
                    SplitString = t.Split(","c) 'CStr(sLine.Substring( 
                    ' sLine.LastIndexOf("=") + 1)))
                    Dim SplitStringLast As String()
                    SplitStringLast = SplitString(1).Split(CChar(")"))
                    '                    GearListValue.Add() ' CInt(SplitString( _
                      1).Substring(0, 3))) ' Max 3 karakterer i strengen bruges
                End If
            End If
        Loop