Visual Basic function that converts the special Turkish characters to English ones.

trCharToEn.vb

Function trCharToEn(string As String) As String

    If String.IsNullOrEmpty(string) Then Return String.Empty

    string = Replace(string, Chr(199), "C")
    string = Replace(string, Chr(208), "G")
    string = Replace(string, Chr(221), "I")
    string = Replace(string, Chr(214), "O")
    string = Replace(string, Chr(222), "S")
    string = Replace(string, Chr(231), "c")
    string = Replace(string, Chr(240), "g")
    string = Replace(string, Chr(253), "i")
    string = Replace(string, Chr(254), "s")
    string = Replace(string, Chr(246), "o")
    string = Replace(string, Chr(252), "u")

    Return string

End Function