Sayın Nurullah_Serdar'ın örnek bir çalışmada yazdığı kod aşağıdaki gibidir. ( Kendisine çok Teşekkür ederim)

kod metin kutusuna büyük harflarle yazılan metnin baş harfleri büyük geri kalan harfleri küçük yapıyor.
metin kutusuna büyük harfle yazılmadığı zaman hata veriyor.

ben bu kodu metin kutusuna küçük harfle yazıldığında baş harflerin büyük geriye kalan harflerin küçük kalmasını sağlayamadım.

kodda değişiklikler yaptım ama beceremedim.

bir fikri yada önerisi olan varmı acaba.

saygılar.



Function cevir(bb As String)


Dim bharf As String
Dim kharf As String
Dim tt As String
Dim uz As Integer
Dim boslukyeri As Integer
Dim harf As String
Dim harf1 As String
Dim hsira As Integer

bharf = "ABCÇDEFGĞHIİJKLMNOÖPRSŞTUÜVYZWX."
kharf = "abcçdefgğhıijklmnoöprsştuüvyzwx."

tt = ""

For uz = 1 To Len(bb)
If Mid(bb, uz, 1) = " " Then
harf = " "
boslukyeri = uz
Else
harf1 = Mid(bb, uz, 1)
If uz = 1 Then
harf = harf1
Else
If uz = boslukyeri + 1 Then
harf = harf1
Else
hsira = InStr(1, bharf, harf1)
harf = Mid(kharf, hsira, 1)
End If
End If
End If

tt = tt + harf
Next uz

cevir = tt


End Function