Найти ошибку в коде (Создание и считывание из файла)

 fnum = FreeFile()
            System.IO.File.CreateText(My.Application.Info.DirectoryPath & "\settings.info")
 
            FileOpen(fnum, My.Application.Info.DirectoryPath & "\settings.info", OpenMode.Output)
            For i As Integer = 0 To 5
                PrintLine(fnum, "*")
            Next i
            FileClose(fnum)
            fnum = FreeFile()
            FileOpen(fnum, My.Application.Info.DirectoryPath & "\settings.info", OpenMode.Input)
            Try
                For i As Integer = 0 To 5
                    k(i) = LineInput(fnum)
                Next i
                FileClose(fnum)
            Catch
            End Try
            If k(0) <> "*" And k(0) <> "" Then
                ComboBox2.SelectedIndex = k(0)
            End If
            If k(1) <> "*" And k(1) <> "" Then
                ComboBox1.SelectedIndex = k(1)
            Else
                ComboBox1.SelectedIndex = 4
                ComboBox2.SelectedIndex = 0
            End If
            If k(2) <> "*" And k(2) <> "" Then
                gas = k(2)
            Else : gas = 0.72
            End If
            If k(3) <> "*" And k(3) <> "" Then
                voda = k(3)
            Else : voda = 9.67
            End If
            If k(4) <> "*" And k(4) <> "" Then
                low150 = k(4)
            Else : low150 = 0.2802
            End If
            If k(5) <> "*" And k(5) <> "" Then
                big150 = k(5)
            Else : big150 = 0.3648
            End If
            MsgBox("settings.info не найден, поэтому он был создан автоматически, все настройки сброшены к стандартным.", MsgBoxStyle.OkOnly, "Error")
            Button6.Visible = False