Hello all, how are you? Ok I have a question concering if the code In my program is to much and can be shorter if its bad or what not?
VB Code:
  1. Dim ArrItems As Variant

  2. Dim I As Integer

  3.     ArrItems = 

  4.  
  5. Array(""Mr.","The-","www.","Dr","Dr+","Dr.""pimp.","yahoo.","name.","login.","login-","login+","name+","my+","sos+","*****+","pimp+","freak+","lucky+","Mister+","Mrs+","cool+","bad+","****.","****+","Da-","name-","Mrs.","Cool-","Yahoo-","Miss-","Mister-","Master-","Boy-","Kid-","Guy-","Lady-","Woman-","Girl-","krack-","crack-","Goth-","Gothic-","Group-","Idol-","Erotic-","Era-","Main-","Satan-","Hero-","Evil-","Happy-","Fun-","Funny-","Doctor-","King-","Dog-","Dogg","420","187","Mr.+","The+","Dr.+","Da+","Mrs.+","Cool+","Yahoo+","Miss+","Mister+","Master+","Boy+","Kid+","Guy+","Lady+","Woman+","Girl+","Happy+","Fun+","Funny+","Doctor+","King+","Dog+","Dogg+","Pimp.+","420+","187+","yahoo_")

  6.     For I = 0 To UBound(ArrItems)

  7.         List1.AddItem ArrItems(I) & Text1.Text 

  8.     Next I

So Im wondering if this code can be made shorter or more useful? Thanks in advance for some help and its very much appreciated. Have a good day