Kodu buldum (alıntıdır). Denersiniz.

Function Buyuk(Veri As String) As String

Dim a As Integer

Dim b As String

    For a = 1 To Len(Veri)

        If Mid(Veri, a, 1) = "i" Then

            b = "İ"

        ElseIf Mid(Veri, a, 1) = "ı" Then

            b = "I" 'Başka sorun çıkaran harf olursa buradan sonra ElseIf diye devam ederek yazın.

        Else

            b = Mid(UCase(Veri), a, 1)

        End If

        Buyuk = Buyuk & b

    Next

End Function