Create Windows Utility - and revise Microsoft VB script to use.

I wish a utuility to create a text file (on a path). The .txt file will need to be accessed from a script. ## Deliverables I want to create a small utility programme it will have 5 input boxes all showing at samne time. INPUT BOX 1 = "DNB" Title DONOYBUY INPUT BOX 2 = "NNV" Title NEWNAME-VAT INPUT BOX 3 = "N" Title NEWNAME - NO VAT INPUT BOX 4 = "SCV" TITLE SC VAT SELLER INPUT BOX 5 = "SC" Title SC NO VAT SELLER It will reject duplicates if in same box , ask to move duplicate to box if exists in different box The utility will (have settings) run on start up and be minimised in systray Once right clicked I can then input text in a box and it will save (add ) to a file comma delimited [login to view URL] on a path I can set manually (in settings). it will save as whatever text box I have input to so if I input "JOHN SMITH" in box "DNB " then FRED_BLOGGS in box "NNV" It will save in [login to view URL] DNB-JOHN SMITH,NNV-FRED_BLOGGS then if I add a name in "scv" box MAX HASTINGS SMITH SCV it will become DNB-JOHN SMITH,NNV-FRED_BLOGGS,SCV-MAX HASTINGS SMITH The input box will have save cancel and after saving cancel will return to systray. Script: My script currently reads: 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX NNV If Newprice <> 0 And NewPrice <> 9999.99 And NewPrice < .myCost * 1.2 Then If NewName = "adaptaman" Or NewName = "XXXXXXXXXXX" Or NewName = "Big Box Shop" Or NewName = "Calumet Photographic" Or NewName = "Cash Converters Falkirk Limited" Or NewName = "Choice Supplies Limited" Or NewName = "Claire Clifford Office Products" Or NewName = "Computer Wizard Limited" Or NewName = "Conrad Electronic UK" Or NewName = "CopierKing" Or NewName = "forgottensounds" Or NewName = "Grumpy Greyhound" Or NewName = "hawkespcs123" Or NewName = "Imagetech UK Ltd" Or NewName = "Inks Direct" Or NewName = "Inkubus Bargains" Or NewName = "InternetCartridges" Or NewName = "Internet-Ink & Pens" Or NewName = "IT Hardware Direct Ltd" Or NewName = "kc_video" Or NewName = "maralex-int" Or NewName = "Megafones" Or NewName = "More Inks" Or NewName = " MPL (UK)" Or NewName = "music_by_mail_uk" Or NewName = "MyMemory" Or NewName = "nigelgec-1" Or NewName = "Nightingale Nursing Supplies" Or NewName = "NORMANS OFFICE" Or NewName = "Orchard Stationery" Or NewName = "Refillexpress UK SAMEDAY DESPATCH" Or NewName = "RL Supplies Ltd" Or NewName = "The IT Store" Or NewName = "Trade IT" Or NewName = "TTUK" Or NewName = "UK Surplus Central Ltd" Or NewName = "Willen Trading" Or NewName = "YBL Ltd" Then NewName = "V-AT-NET(£" & Formatnumber(NewPrice * 100/120,2) & ")-" & Left(NewName,30) End If End If 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX NN If Newprice <> 0 And NewPrice <> 9999.99 And NewPrice < .myCost * 1.2 Then If NewName = "XXXXXX" Or NewName = "XXXXXX" Then NewName = "Not-Vaat- " & Left(NewName,30) End If End If 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX VAT SELLERS SCV Dim VATSELLER VATSELLER = 0 If SC1Name = "adaptaman" Or SC1Name = "Amazon" Or SC1Name = "All Day Office Supplies (Vat Registered)" Or SC1Name = "Altecweb UK" Or SC1Name = "XXXXXXXXXXX" Or SC1Name = "XXXXXXXXXXX" Or SC1Name = "XXXXXXXXXXX" Or SC1Name = "XXXXXXXXXXX" Or SC1Name = "XXXXXXXXXXX" Or SC1Name = "XXXXXXXXXXX" Or SC1Name = "XXXXXXXXXXX" Or SC1Name = "XXXXXXXXXXX" Or SC1Name = "XXXXXXXXXXX" Or SC1Name = "XXXXXXXXXXX" Or SC1Name = "XXXXXXXXXXX" Or SC1Name = "Altecweb UK" Or SC1Name = "AVIDES" Or SC1Name = "Bentham Ltd" Or SC1Name = "Big Box Shop" Or SC1Name = "Blitz Online Ltd" Or SC1Name = "Calumet Photographic" Or SC1Name = "Cash Converters Falkirk Limited" Or SC1Name = "Choice Supplies Limited" Or SC1Name = "Claire Clifford Office Products" Or SC1Name = "Computer Wizard Limited" Or SC1Name = "Conrad Electronic UK" Or SC1Name = "crescentdirect" Or SC1Name = "ESAVER" Or SC1Name = "forgottensounds" Or SC1Name = "Grumpy Greyhound" Or SC1Name = "hawkespcs123" Or SC1Name = "Imagetech UK Ltd" Or SC1Name = "Ink Jungle (VAT Registered)"Or SC1Name = "Inks Direct" Or SC1Name = "Inkubus Bargains" Or SC1Name = "InternetCartridges" Or SC1Name = "Internet-Ink & Pens" Or SC1Name = "IT Hardware Direct Ltd" Or SC1Name = "kc_video" Or SC1Name = "maralex-int" Or SC1Name = "Megafones" Or SC1Name = "More Inks" Or SC1Name = " MPL (UK)" Or SC1Name = "music_by_mail_uk" Or SC1Name = "MyMemory" Or SC1Name = "nigelgec-1" Or SC1Name = "Nightingale Nursing Supplies" Or SC1Name = "NORMANS OFFICE" Or SC1Name = "Orchard Stationery" Or SC1Name = "Refillexpress UK SAMEDAY DESPATCH" Or SC1Name = "RL Supplies Ltd" Or SC1Name = "SHD Online" Or SC1Name = "Shop4usb" Or SC1Name = "Silicon Alley" Or SC1Name = "The IT Store" Or SC1Name = "Trade IT" Or SC1Name = "TTUK" Or SC1Name = "UK Surplus Central Ltd" Or SC1Name = "Whistler Technology plc" Or SC1Name = "Willen Trading" Or SC1Name = "YBL Ltd" Then VATSELLER = 1 SC1Name = "V-AT-NET(£" & Formatnumber(Sc1Price * 100/120,2) & ")-" & Left(SC1Name,30) End If Dim VATSC2SELLER VATSC2SELLER = 0 If SC2Name = "adaptaman" Or SC2Name = "Amazon" Or SC2Name = "All Day Office Supplies (Vat Registered)" Or SC2Name = "Altecweb UK" Or SC2Name = "AVIDES" Or SC2Name = "Bentham Ltd" Or SC2Name = "Big Box Shop" Or SC2Name = "Blitz Online Ltd" Or SC2Name = "Calumet Photographic" Or SC2Name = "Cash Converters Falkirk Limited" Or SC2Name = "Choice Supplies Limited" Or SC2Name = "Claire Clifford Office Products" Or SC2Name = "Computer Wizard Limited" Or SC2Name = "Conrad Electronic UK" Or SC2Name = "crescentdirect" Or SC2Name = "ESAVER" Or SC2Name = "forgottensounds" Or SC2Name = "Grumpy Greyhound" Or SC2Name = "hawkespcs123" Or SC2Name = "Imagetech UK Ltd" Or SC2Name = "Ink Jungle (VAT Registered)"Or SC2Name = "Inks Direct" Or SC2Name = "Inkubus Bargains" Or SC2Name = "InternetCartridges" Or SC2Name = "Internet-Ink & Pens" Or SC2Name = "IT Hardware Direct Ltd" Or SC2Name = "kc_video" Or SC2Name = "maralex-int" Or SC2Name = "Megafones" Or SC2Name = "More Inks" Or SC2Name = " MPL (UK)" Or SC2Name = "music_by_mail_uk" Or SC2Name = "MyMemory" Or SC2Name = "nigelgec-1" Or SC2Name = "Nightingale Nursing Supplies" Or SC2Name = "NORMANS OFFICE" Or SC2Name = "Orchard Stationery" Or SC2Name = "Refillexpress UK SAMEDAY DESPATCH" Or SC2Name = "RL Supplies Ltd" Or SC2Name = "SHD Online" Or SC2Name = "Shop4usb" Or SC2Name = "Silicon Alley" Or SC2Name = "The IT Store" Or SC2Name = "Trade IT" Or SC2Name = "TTUK" Or SC2Name = "UK Surplus Central Ltd" Or SC2Name = "Whistler Technology plc" Or SC2Name = "Willen Trading" Or SC2Name = "YBL Ltd" Then VATSC2SELLER = 1 SC2Name = "V-AT-NET(£" & Formatnumber(Sc2Price * 100/120,2) & ")-" & Left(SC2Name,30) End If Dim VATSC3SELLER VATSC3SELLER = 0 If SC3Name = "adaptaman" Or SC3Name = "Amazon" Or SC3Name = "All Day Office Supplies (Vat Registered)" Or SC3Name = "Altecweb UK" Or SC3Name = "AVIDES" Or SC3Name = "Bentham Ltd" Or SC3Name = "Big Box Shop" Or SC3Name = "Blitz Online Ltd" Or SC3Name = "Calumet Photographic" Or SC3Name = "Cash Converters Falkirk Limited" Or SC3Name = "Choice Supplies Limited" Or SC3Name = "Claire Clifford Office Products" Or SC3Name = "Computer Wizard Limited" Or SC3Name = "Conrad Electronic UK" Or SC3Name = "crescentdirect" Or SC3Name = "ESAVER" Or SC3Name = "forgottensounds" Or SC3Name = "Grumpy Greyhound" Or SC3Name = "hawkespcs123" Or SC3Name = "Imagetech UK Ltd" Or SC3Name = "Ink Jungle (VAT Registered)"Or SC3Name = "Inks Direct" Or SC3Name = "Inkubus Bargains" Or SC3Name = "InternetCartridges" Or SC3Name = "Internet-Ink & Pens" Or SC3Name = "IT Hardware Direct Ltd" Or SC3Name = "kc_video" Or SC3Name = "maralex-int" Or SC3Name = "Megafones" Or SC3Name = "More Inks" Or SC3Name = " MPL (UK)" Or SC3Name = "music_by_mail_uk" Or SC3Name = "MyMemory" Or SC3Name = "nigelgec-1" Or SC3Name = "Nightingale Nursing Supplies" Or SC3Name = "NORMANS OFFICE" Or SC3Name = "Orchard Stationery" Or SC3Name = "Refillexpress UK SAMEDAY DESPATCH" Or SC3Name = "RL Supplies Ltd" Or SC3Name = "SHD Online" Or SC2Name = "Shop4usb" Or SC3Name = "Silicon Alley" Or SC3Name = "The IT Store" Or SC3Name = "Trade IT" Or SC3Name = "TTUK" Or SC3Name = "UK Surplus Central Ltd" Or SC3Name = "Whistler Technology plc" Or SC3Name = "Willen Trading" Or SC3Name = "YBL Ltd" Then VATSC3SELLER = 1 SC3Name = "V-AT-NET(£" & Formatnumber(Sc3Price * 100/120,2) & ")-" & Left(SC3Name,30) End If 'XXXXXXXXXXXXXXXX VAT SELLERS - BANNED DONOTBUY - DNB Dim DNB DNB = 0 If SC2Name = "Cartridge Point" Or SC2Name = "7dayshop" Or SC2Name = "FREE INK SHOP" Or SC2name = "Rite Choice" Or SC2Name = "OfficeEtc" Or SC2Name = "Ballicom International" Or SC2Name = "Caboodle" Or SC2Name = "Kikatek" Or SC2Name = "Inkubus Bargains" Or SC2Name = "Lexmark Shop UK" Or SC2Name = "LambdaTek ComponentShop" Then SC2Name = "DNB-" & Left(SC2Name,30) End If If SC3Name = "Cartridge Point" Or SC3Name = "7dayshop" Or SC3Name = "FREE INK SHOP" Or SC3name = "Rite Choice" Or SC3Name = "OfficeEtc" Or SC3Name = "Ballicom International" Or SC3Name = "Caboodle" Or SC3Name = "Kikatek" Or SC3Name = "Inkubus Bargains" Or SC3Name = "Lexmark Shop UK" Or SC3Name = "LambdaTek ComponentShop" Then SC3Name = "DNB-" & Left(SC3Name,30) End If If SC1Name = "Cartridge Point" Or SC1Name = "7dayshop" Or SC1Name = "FREE INK SHOP" Or SC1name = "Rite Choice" Or SC1Name = "OfficeEtc" Or SC1Name = "Ballicom International" Or SC1Name = "Caboodle" Or SC1Name = "Kikatek" Or SC1Name = "Inkubus Bargains" Or SC1Name = "Lexmark Shop UK" Or SC1Name = "LambdaTek ComponentShop" Then SC1Name = "DNB-" & Left(SC1Name,30) DNB = 1 End If '15 END DEFINE VAT STATUS 'XXXXXXXXXXXXXXXX I will want it updated to allow it to read [login to view URL] and to say if in file [login to view URL] exists selleranme with (prefix) then instead of having to keep editing the list above. So for example: 'XXXXXXXXXXXXXXXX VAT SELLERS - BANNED DONOTBUY - DNB If SC1Name = "Cartridge Point" Or SC1Name = "7dayshop" Or SC1Name = "FREE INK SHOP" Or SC1name = "Rite Choice" Or SC1Name = "OfficeEtc" Or SC1Name = "Ballicom International" Or SC1Name = "Caboodle" Or SC1Name = "Kikatek" Or SC1Name = "Inkubus Bargains" Or SC1Name = "Lexmark Shop UK" Or SC1Name = "LambdaTek ComponentShop" Then SC1Name = "DNB-" & Left(SC1Name,30) DNB = 1 End If becomes If SC1Name in [login to view URL] with prefix DNB- then BEFORE writing script revision I will send full text ( it is constantly being updated)