Read Text File

Try

            If File.Exists(Application.StartupPath + "\config.ini") Then

                Dim fsStream7 As New FileStream(Application.StartupPath + "\config.ini", FileMode.Open, FileAccess.Read)
                Dim srReader7 As New StreamReader(fsStream7)
                Dim readline1 As String

                srReader7.BaseStream.Seek(0, SeekOrigin.Begin)
                While srReader7.Peek() > -1
                    readline1 = (srReader7.ReadLine())
                 End While

                srReader7.Close()

            Else
                MessageBox.Show("Unable to locate " + Application.StartupPath + "\config.ini")
                Me.Close()
            End If

Catch ex As Exception
    MsgBox(ex.Message)
End Try