ilk harf büyük yapma hatası

arkadaşlar aşağıda gönderdiğim kelimenin ilk harfini büyük yapmakta hata ile karşılaşıyorum.
1.hata: caps lock tuşu açıkken İ harfi büyük olarak kalıyor küçük i harfine dönmüyor.
2.bir kişinin adresini yazarken bilindiği gibi kısaltmalar yapılmaktadır.örneğin Yunus Emre Mah.İstiklal Cad.No:16 gibi adreste nokta(.) işaretinden sonraki harfi de küçük yapıyor.Noktadan sonraki kelimenin ilk harfini büyük diğerlerini küçük yaptırmak istiyorum.
kod:
Private Sub İKAMETİ_AfterUpdate()
İKAMETİ = StrConv(İKAMETİ, vbProperCase)
ilk = Target
ilk= Replace(ilk, " ", " ")
ilk = Replace(ilk, " ", " ")
ilk = Replace(ilk, "I", "ı")
ilk = Replace(ilk, "İ", "i")
ilk = Replace(ilk, ".", ". ")
Target = StrConv(ilk, vbProperCase)
End Sub

bu kod üzerinden yardımcı olurmusunuz. şimdiden bütün arkadaşlara teşekkür ederim.

güncelleştirme sonrasında olayına
Me.[İKAMETİ] = StrConv([İKAMETİ], 3) ...şeklinde
yada şu fonksiyonu BİR DENERMİSİNİZ...

Public Function MB(ByVal b As String) As String
MB = StrConv(b, vbUpperCase)
MB= Replace(MB, "i", "İ")
MB = Replace(MB, "ı", "I")
End Function