Merhaba arkadaşlar,
Bir metin kutusunda güncelleştirme sonrası 

Private Sub FİRMA_ADI_AfterUpdate()

Me.FİRMA_ADI = Replace(Me.FİRMA_ADI, "i", "İ")
Me.FİRMA_ADI = Replace(Me.FİRMA_ADI, "ı", "I")
Me.FİRMA_ADI = UCase(Me.FİRMA_ADI)

End Sub

komutunu kullanıyorum. Hücreye bir değer girip vazgeçip sildikten sonra diğer metin kutusuna geçtiğimde "Run-time error "94" Invalid use of Null" hatası alıyorum. Nasıl düzeltebilirim. 
Yardımlarınız için şimdiden teşekkürler