Function HARFKATSAYISI(ByVal harfnotu)
harfnotu = UCase(harfnotu)
HARFKATSAYISI = 0
If harfnotu = "AA" Then HARFKATSAYISI = 4
If harfnotu = "AB" Then HARFKATSAYISI = 3.7
If harfnotu = "BA" Then HARFKATSAYISI = 3.3
If harfnotu = "BB" Then HARFKATSAYISI = 3
If harfnotu = "BC" Then HARFKATSAYISI = 2.7
If harfnotu = "CB" Then HARFKATSAYISI = 2.3
If harfnotu = "CC" Then HARFKATSAYISI = 2
If harfnotu = "DC" Then HARFKATSAYISI = 1.5
If harfnotu = "DD" Then HARFKATSAYISI = 1
If harfnotu = "FF" Then HARFKATSAYISI = 0
If harfnotu = "YT" Then HARFKATSAYISI = 0
End Function