Function convert(metin, secim)

    metin = Replace(metin, "I", "ı")

    metin = Replace(metin, "İ", "i")

    convert = metin

End Function



Function ilkharfbuyut(metin As String) As String

Dim deger As String, kacinci As Integer, karakter As Integer

Dim harf() As String, sayac As Integer

Dim i As Integer, yenimetin As String

karakter = Len(metin)

ReDim harf(karakter)

deger = LCase(metin)

For sayac = 1 To karakter

   harf(sayac) = convert(Mid(deger, sayac, 1), 3)

Next

kacinci = InStr(1, deger, " ")

Do While (kacinci > 0)

   harf(kacinci + 1) = UCase(harf(kacinci + 1))

   kacinci = InStr(kacinci + 1, deger, " ")

Loop

harf(1) = UCase(harf(1))

For i = 1 To karakter

   yenimetin = yenimetin + harf(i)

Next

ilkharfbuyut = yenimetin

   

End Function

Bu kodları yazın, istediğiniz yerde de ilkharfbuyut([AlanAdi]) olarak kullanın.

Not: Kodlar alıntıdır. Ama nereden aldığımı hatırlamıyorum))