yanıtın için çok teşekkür ederim
Kod:Imports System

Module Program
Sub Main(args As String())
Dim metin As String
Dim metin1() As String

Dim eleman As Integer = 0
Dim i As Integer
Dim tekrarsayisi() As Integer = {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
'tekrarsayısı isimli değişkendeki 0 lar metin1.Lenght komutundan gelen sayıya göre konulmuştur metinde 250 kelime vardır
metin = " Her sabah kalktığımda kendi kendime Jerry bugün iki seçimin var : Havan ya iyi olacak, ya kötü .. derim. Havamın iyi olmasını seçerim. Kötü bir şey olduğunda gene iki seçimim var : Kurban olmak , ya da ders almak. Ben başıma gelen kötü şeylerden ders almayı seçerim. Birisi bana bir şeyden şikayete geldiğinde , gene iki seçimim var .. Şikayetini kabul etmek ya da ona hayatın olumlu yanlarını göstermek. Ben hayatın olumlu yanlarını seçerim. Yok yahu, diye protesto ettim. Bu kadar kolay yani ? Evet.. Kolay dedi Jerry.. Hayat seçimlerden ibarettir . Her durumda bir seçim vardır . Sen her durumda nasıl davranacağını seçersin. Sen insanların senin tavrından nasıl etkileneceklerini seçersi. Sen havanın, tavrının iyi ya da kötü olmasını seçersin … Yani sen, hayatını nasıl yaşayacağını seçersin !.. Jerry’nin sözleri beni oldukça etkiledi. Onu, uzun yıllar görmedim. Ama, hayatımdaki talihsiz olaylara dövünmek yerine, seçim yapmayı tercih ettiğimde hep onu hatırladım. Yıllar sonra , Jerry’nin başına çok tatsız bir şey geldi . Soygun için gelen hırsızlar, paniğe kapılıp , Jerry’yi delikdeşik etmişler … Ameliyatı 18 saat sürmüş , haftalarca yoğun bakımda kalmış . Taburcu edildiğinde , kurşunların bazıları hala vücudundaymış . Ben onu , olaydan altı ay sonra gördüm . Nasılsın ? diye sorduğumda , Bomba gibiyim dedi Bomba gibi. Olay sırasında neler hissettin Jerry dedim. Yerde yatarken, iki seçimim var diye düşündüm.. Ya yaşamayı seçecektim, ya ölümü.. Ben yaşamayı seçtim. Korkmadın mı, şuurunu kaybetmedin mi !.. Ambülansla gelen sağlık görevlileri harika insanlardı. Bana hep İyileşeceksin merak etme dediler. "
metin1 = Split(metin.ToUpper, " ") ' metinin boşluklara göre ayrılmış halini metin1 e aktarır

For i = 0 To UBound(metin1)


For j = i To UBound(metin1)
If metin1(i) = metin1(j) Then
tekrarsayisi(i) = tekrarsayisi(i) + 1
End If

If (tekrarsayisi(i) > eleman) Then
eleman = i
End If

Next
Next

For i = 0 To UBound(metin1)
Dim min As Integer = i
For j = i + 1 To UBound(metin1)
If (tekrarsayisi(j) < tekrarsayisi(min)) Then
min = j
End If
Next

Dim temp As Integer = tekrarsayisi(i)

tekrarsayisi(i) = tekrarsayisi(min)
tekrarsayisi(min) = temp
Next


Console.WriteLine("En cok kullanılan kelime: " + metin1(eleman))
Console.WriteLine("Tekrar Sayisi: " + Convert.ToString(tekrarsayisi(UBound(metin1))))


End Sub
End Module



bende böyle bişey yaptım ama şu 0 lar olmasa daha iyi olurdu