'// Başlık düzenleme fonksiyonu
Function BaslikTemizle(strVeri)

	'// Eğer Değişken Boşsa Fonksiyondan Çıkılıyor
	If IsNull(strVeri) Then Exit Function

	'// Zararlı Kodlar Burada Ayıklanıyor
	strVeri = Replace(strVeri, "1", "A")
	strVeri = Replace(strVeri, "2", "B")
	strVeri = Replace(strVeri, "3", "C")
	strVeri = Replace(strVeri, "4", "D ", 1, -1, 1)
	BaslikTemizle = strVeri

End Function