İşte Türkçe karakterleri destekleyen bir fonksiyon. Adından da anlaşılacağı gibi verilen string i küçük harfe çevirir.

Public Function KucukHarfYap(ByVal Metin1 As String) As String
Dim Sayac, Sonuc, Boy As Long
Dim Metin2, BasMetin, BitMetin As String
Boy = Len(Trim(Metin1))
Metin2 = LCase(Trim(Metin1))
For Sayac = 1 To Boy
Sonuc = InStr(Sayac, Metin1, "I")
If Sonuc > 0 Then
BasMetin = left(Metin2, Sonuc - 1)
BitMetin = right(Metin2, Boy - Sonuc)
Metin2 = BasMetin & "ı" & BitMetin
End If
Next
For Sayac = 1 To Boy
Sonuc = InStr(Sayac, Metin1, "İ")
If Sonuc > 0 Then
BasMetin = left(Metin2, Sonuc - 1)
BitMetin = right(Metin2, Boy - Sonuc)
Metin2 = BasMetin & "i" & BitMetin
End If
Next
KucukHarfYap = Metin2
End Function

Kullanımı :

Dim yazi as String
yazi = "Deneme dede DENEME İğıÇöş"
yazi = KucukHarfYap(yazi)
MsgBox yazi

Kolay Gelsin.

Popülerlik: 4%