hata verdi bi kaç tanesini düzelttim ama olmadı
tamamdır dictionary i araştırdım biraz şöyle çözdüm soruyu:
metin = metin.Trim()
metin2 = Split(metin, " ")
For i = 0 To UBound(metin2)
If dict.ContainsKey(metin2(i)) Then
dict(metin2(i)) += 1
Dim dictm = dict(metin2(i))
Else
dict.Add(metin2(i), 1)
End If
Next
Dim encokTekrar = From dicts In dict
Order By dicts.Value Descending
Select dicts.Key, dicts.Value
Benim eklediğim gayet güzel çalışıyor