You can also try this.....
Dim MyArray() As String = New String() {"apple", "banana", "cat", "apple"}
'Sub routine to get the occurances/count of the strings
'in your array
Sub findOccurances()
Dim appleCount, bananaCount As Integer
For Each str As String In MyArray...