I'm trying to get code working that will take a report, remove everything so that all of the words are seperated by the space delimeter, assign that big old long string to an array using the split command. Then I want to count the number of times a word exists in the array. I'm having issues with my counter, and all I can get the counter to do is count the total number of words, not how many times each word exists in the array.

Thanks for any input/help

Sounds Complex, I know you can use the Trim Function with Input boxes, but I dont know if it will work with Arrays.

Build a second array; here's some pseudo code

Dim SecondArray[x,2] //x is how many unique words you expect

init SecondArray[x,1] = ""
Init SecondArray[x,2] = 0

for i=1 to len(FirstArray) //FirstArray is where all the words are stored
CurWord$ = FirstArray[i]
CurDex = WhereInSecondArray(CurWord$)
SecondArray[CurDex,2] = SecondArray[CurDex,2} + 1
next i

function WhereInSecondArray(AWord$) as integer

TheDex = 0

for i = 1 to len(SecondArray)
if Aword$ = SecondArray[i,1]
TheDex = i
endif
next i

if TheDex = 0 then //You didnt find the word you have to add it to first null element
for i = 1 to len(SecondArray)
if SecondArray[i,1]="" then
SecondArray[i,1] = AWord$
TheDex = i
endif
next
endif //Adding a word

return TheDex


This is HUGELY inefficient, you could add some additional pointers and go much faster.
It is however a start
HTH
-MF